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CONTROLLING THE GRAPHICS SYSTEM 


TERMINATE VIEW SURFACE 


The TERMINATE VIEW_SURFACE instruction terminates access to 
and releases a specific output device. 


SELECT VIEW SURFACE 


The SELECT __ VIEW_ SURFACE instruction adds a specific device to 
the set of view surfaces to which CGL performs output. It 
does not affect the current attribute and viewing 
transformation values. For example, suppose that you select 
a view surface, draw an image, deselect that view surface, 
and select another view surface. The viewport is the same 
for the second view surface as it was for the first. CGL 
conveys current state information (except font descriptions) 
to each view surface when you select it. The video monitor 
is selected by default. 


DESELECT VIEW SURFACE 


The DESELECT VIEW_SURFACE instruction removes a_ specific 
device from the set of selected devices. 


PLAYBACK FILE 


The PLAYBACK FILE instruction reads a file of display 
commands and sends them to all currently selected view 
surfaces. 


BEGIN BATCH 


The BEGIN BATCH instruction begins storing all subsequent 
view surface updates in a buffer and continues to do so until 
it executes an END. BATCH instruction. Normally, CGL updates 
the view surfaces each time it executes an instruction. Use 
of this instruction can considerably improve performance. 


END_BATCH 
The END BATCH instruction empties the buffer and performs all 
of the view surface updates that have been stored since the 


last BEGIN BATCH instruction. CGL no longer stores view 
surface updates after END BATCH executes. 


CGL WAIT 


The CGL WAIT instruction suspends graphics execution, leaving 
the view surfaces unchanged for a specific number of seconds. 
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@ ERASE VIEWPORT 


The ERASE VIEWPORT instruction erases the viewport leaving 
the remainder of each view surface unchanged. 


e@ PRINT SCREEN 
The PRINT SCREEN instruction sends a specified portion of the 
image on the video monitor screen to the printer. You can 
specify horizontal and vertical margins. 

@ REPORT MOST RECENT ERROR 
The REPORT MOST _RECENT_ ERROR instruction reports the number 
of the most recent execution error and the number of the 


instruction that caused it. It is used primarily for 
debugging. 


1.5 DESCRIBING THE GRAPHICAL WORLD 
The graphical world is two-dimensional; we visualize it as a 
plane. The Cartesian coordinate system provides a convenient way 
of describing points on ae plane. Cartesian coordinates’ are 
specified in the format: 

X,Y 
where X is the horizontal axis and Y is the vertical axis. 
A coordinate pair specifies a discrete point on the plane. The 
finite area of the plane that can be specified by coordinate 
pairs is called the coordinate space. Figure 1-2 shows a typical 
coordinate system with axes intersecting at (0,0) and space 
defined as: 

-l <= X <= 2 and -2 <= Y <= l 
The point (-2,1) is outside of the coordinate space. 
CGL deals with three different Cartesian coordinate systems: 


1. The world coordinate system 


Your program uses this coordinate system to represent its 
database or simply for programming convenience. 
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2. The normalized device coordinate system 


CGL uses this coordinate system as a device-independent' way 
of describing a view surface. 


3. The physical device coordinate system 
The Professional terminal subsystem uses this coordinate 
system to address individual locations on a specific view 


surface. 


The following sections will discuss each coordinate system 
individually. 


——— = Coordinate space e 


Figure 1-2: A Cartesian Coordinate System 
1.5.1 WORLD COORDINATES 


Graphical world coordinates (world coordinates from this point 
on) are device-independent Cartesian coordinates defined by your 
application program to describe locations and sizes to CGL. You 
can adjust the graphical world to whatever size and shape is the 
most convenient. 


DESCRIBING THE GRAPHICAL WORLD 


If you are working with a database, you can adjust the graphical 
world to match the data. For example, an application program 
might deal with sales of amblihelical hexnuts in thousands 
against time in months, while another program might deal with 
peaches in bushels against rainfall in inches. 


If you are creating visual images, you can adjust the graphical 
world to match the image. For example, a chess program could 
draw a chessboard by making the graphical world eight squares’ by 
eight squares. 


The mapping of world coordinates onto a view surface (or some 
portion of a view surface) is called the viewing transformation. 


This is described in detail in Section 1.5.4. 
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Figure 1-3: The Window In World Coordinate Space 


World coordinates can represent any unit of measure. The only 
requirement imposed by CGL is that world coordinate values must 
be supplied as real (floating point) numbers. (According to’ the 
CORE Standard, most data are available as real numbers.) World 
coordinate space, then, is bounded only by the set of PDP-11 
Single-precision real numbers. 
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1.5.1.1 THE WINDOW - The SET WINDOW instruction (described in 
Chapter 4) defines the window, which is the rectangular portion 
of world coordinate space that is currently used by your program. 
You provide the lower and upper bounds of the X (horizontal) and 
Y (vertical) dimensions of the window. Figure 1-3 shows a window 
in world coordinate space. 


The X and Y axes in Figure 1-3 are shown in arbitrary locations 
and do not necessarily represent zero. The edges of a window can 
be positive or negative coordinates. Zero on the X or Y axis can 
be inside or outside of the window. 


The origin of the window represents which directions on the view 
surfaces correspond to increases and decreases in world 
coordinate values. The origin is defined to be the corner 
addressed by the smallest world coordinate pair. For example, a 
window defined as (-2,3,7,9) has as its origin the point (-2,7). 


Figure 1-4: The Origin of the Window 


If the origin is set to the top-left (the default), xX values 
increase toward the right of the view surfaces and Y values 
increase toward the bottom. You may decide that the bottom-right 
is a more convenient origin for your program. By changing the 
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origin, you can cause the X value to increase toward the left of 
the view surfaces and/or the Y value to increase toward the top. 


By default, the origin is the top-left corner (the corner that 
appears at the top-left corner of the view surfaces). The 
SET ORIGIN instruction (described in Chapter 4) selects any of 
the four corners as the origin. Figure 1-4 shows’ the 
relationship between the origin and world coordinate values. 


1.5.1.2 THE CURRENT POSITION - CGL maintains a coordinate pair 
called the current position that corresponds’ to the current 


drawing location in world coordinate space. The visual 
representation of the current position is the cursor, a symbol 
that blinks in complement mode. The default cursor is a 


crosshair symbol. You can use the SET CURSOR instruction 
(described in Chapter 6) to specify your own cursor. 


NOC SPACE 
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Figure 1-5: Default Normalized Device Coordinate Space 


Some output primitive instructions use the current position as 
the starting position. All output primitive instructions affect 
the current position (or don't affect it) in a well-defined way. 
For example, a call to the LINE ABS 2 instruction draws a line 
from the current position to a specified location and makes” that 
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location the current position. Thus, repeated calls to the 
LINE ABS 2 instruction would result in a set of connected lines. 
CGL also provides MOVE ABS 2 and MOVE REL 2 instructions to 
change the current position without drawing anything. 


1.5.1.3 ABSOLUTE VS. RELATIVE POSITIONS - You can specify a 
position in world coordinate space in one of two ways: as an 
absolute position (independent from the current position) or as a 
relative position (an offset or displacement from the current 
position). Output primitive instructions have two versions, 
"ABS" and "REL", for absolute coordinates and relative 
coordinates, respectively. 


1.5.2 NORMALIZED DEVICE COORDINATES 


Normalized device coordinate (NDC) space is the CORE Standard 
method of describing the dimensions of any view surface ina 
device-independent way. 


NDC coordinates are real numbers in the range 0O to 1, 4with 
default bounds (0,1,0,1) that map to the entire view surface. 
Your application can specify the upper bounds of NDC space in 
order to change the aspect ratios of view surfaces. 


VIEWPORT 


Figure 1-6: The Viewport 
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1.5.2.1 NDC SPACE - The default NDC space is rectangular, not 
Square, because its aspect ratio corresponds’ to that of the 
Professional video monitor (960 x 600 or 8:5). To change this 
ratio, use the SET _NDC_SPACE 2 instruction. Figure 1-5 is a 
picture of the default NDC space. 


1.5.2.2 THE VIEWPORT - Your program can use all of normalized 
device coordinate space or any rectangular portion of it that you 
desire. The portion used by your program is called the viewport 
and is shown in Figure 1-6. The SET VIEWPORT 2 instruction 
(described in Chapter 4) specifies the exact bounds of the 
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Figure 1-7: The Viewing Transformation 
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1.5.3 PHYSICAL DEVICE COORDINATES 


Physical device coordinates are device-dependent Cartesian 
coordinates for specifying positions’ on the view surface of a 
particular output device. Each type of output device has its own 
physical coordinate space. Some CGL instructions accept numeric 
values where each bit corresponds to one _ physical device 
coordinate unit. 


The Professional video monitor has a physical device coordinate 
space of 960 (horizontal) by 600 (vertical) units, a rectangle 
lying on its side. As a matter of interest, each horizontal 
device coordinate corresponds to a single pixel (picture 
element). That is not true of the vertical coordinates; there 
are only 240 vertical pixels. The mapping of physical device 
coordinate units into pixels is a function of the terminal 
subsystem. 


1.5.4 THE VIEWING TRANSFORMATION 


The process of creating an image on a view surface can be thought 
of as a three-step process, as shown in Figure 1-7. 


1. CGL (optionally) clips the world coordinate objects to _ be 
viewed so that the portions that would fall outside the 
window are removed from view. The SET_WINDOW_CLIPPING 
instruction controls this function. 


2. CGL maps the contents of the window (world coordinates) to 
the viewport (normalized device coordinates). 


3. CGL maps the contents of the viewport (normalized device 
coordinates) to each currently selected view surface 
(physical device coordinates). 


The viewport can have any aspect (X to Y) ratio you wish. If the 
aspect ratio of the window does’ not match the viewport, CGL 
"squeezes" or "stretches" the window to fit. Changing the 
viewport affects different output primitives in different ways. 
Some of these effects are controlled by CGL; others are 
characteristics of the terminal subsystem. 


® Straight lines and arcs appear as you would expect. Arcs 
retain their shape but not their size (a circle does not 
transform to an ellipse). 
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e Curved lines vary somewhat in shape, depending on_ the 
physical device coordinate positions available to draw them. 


@e Text (character size and spacing) is adjusted to fit the 
required number of characters into the viewport. 
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Figure 1-8: One Image in Several Viewports 


Figure 1-8 shows the image of a rectangle (drawn along the edges 
of the viewport), a circle (360 degree arc) and a curve drawn in 
several different viewports. The circle remains round, 
regardless of the shape of the viewport. 


i ieee Be 


OUTPUT PRIMITIVES - THE GRAPHICAL "BUILDING BLOCKS" 


1.6 OUTPUT PRIMITIVES - THE GRAPHICAL "BUILDING BLOCKS" 


Output primitives are the fundamental visible images that you 
combine to make up pictures. You can draw straight lines, curved 
lines, markers, and text, or just move the current position. 


Your application program creates output primitives by calling CGL 
instructions (described in detail in Chapters 6 and 7). Output 
primitive instruction names end in "ABS 2" (absolute) or "REL 2" 
(relative) which specifies whether the parameters are absolute 
positions or offsets. The suffix " 2" is the CORE Standard 
syntax for "two dimensional" and is included for compatibility 
with future software that may support three dimensional output 
primitives. 


The way output primitives appear on the view surfaces is 
determined by: 


@® The parameters passed with the instruction call 


Most of the parameters passed with output primitive 
instructions specify where in world coordinate space to draw 


the output primitive. If the parameters are absolute 
coordinates, you specify either a single coordinate pair or 
an array containing a list of coordinate pairs. If the 


parameters are relative coordinates, you specify either a 
Single offset or an array containing a list of offsets. 


® The current global attribute value settings 


The global attributes (which affect all output primitives) 


ares the writing index, the background index, the writing 
planes, and the writing mode. These are explained in Section 
5 a ae cee 


e The current primitive-specific attribute value settings 


Bach type of output primitive has a set of attributes’ that 
determine style, color, and so forth. For example, line 
primitives have a special attribute called fill that you’ can 
use to draw "solid" objects. These are explained in Section 
fee ae 


® The viewing transformation 


The shapes of the window and the viewport affect the way 
Output primitives appear. If the shapes are different, CGL 
"squeezes" or "stretches" the window to fit the viewport. 
The distortion of the window affects different output 
primitives in different ways and is described in Section 
1.5.4 


OUTPUT PRIMITIVES 


1.6.1 CURRENT POSITION INSTRUCTIONS 


Current position instructions cause no change to the view 
surfaces. They simply change or report on the value of the 
current position. 


@ MOVE ABS 2 


The MOVE ABS 2 instruction changes the current position to a 
point specified as an absolute position in world coordinate 
space. 


@ MOVE REL 2 


The MOVE REL 2 instruction changes the current position to a 
point specified as an offset in world coordinate space. 


e INQUIRE CURRENT POSITION 2 


The INQUIRE CURRENT POSITION 2 instruction returns the 
current position in world coordinate space. 


@ SET CURSOR 


The SET CURSOR instruction controls the appearance of the 
cursor, the visual representation of the current position. 


1.6.2 MARKER PRIMITIVE INSTRUCTIONS 


These instructions change the current position and draw markers 
or series of markers. Markers are symbols such as dots or 
bullets that represent points in world coordinate space. They 
appear on the view surfaces centered on the new current position. 


@ MARKER ABS 2 


The MARKER ABS 2 instruction draws a character at a point 
specified as an absolute position in world coordinate space. 


@ MARKER_REL 2 


The MARKER_REL 2 instruction draws a character at a point 
specified as an offset in world coordinate space. 


@ POLYMARKER ABS 2 


The POLYMARKER ABS 2 instruction draws a character at each of 
a list of points specified as absolute positions in world 
coordinate space. 
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@ POLYMARKER REL 2 


The POLYMARKER REL 2 instruction draws a character at each of 
a list of points specified as offsets in world coordinate 
Space. 


1.6.3 LINE PRIMITIVE INSTRUCTIONS - THE GRAPHICAL "PEN" 


These instructions draw one or more lines. You supply the 
point(s) that describe the line(s) that you want to draw. 


These instructions draw straight lines: 
@ LINE ABS 2 


The LINE ABS 2 instruction draws a straight line from the 
current position to a point specified as an absolute position 
in world coordinate space. 


@ LINE REL 2 


The LINE REL 2 instruction draws a straight line from the 


current position to a point specified as an offset in world 
coordinate space. 


@ POLYLINE ABS 2 


The POLYLINE ABS 2 instruction draws a series of lines from 
the current position to a list of points specified as 
absolute positions in world coordinate space. 


@ POLYLINE REL 2 


The POLYLINE REL 2 instruction draws a series of lines from 
the current position to a list of points specified as offsets 
in world coordinate space. 


@ POLYGON ABS 2 


The POLYGON_ABS 2 instruction draws a series of lines 
connecting a list of points specified as absolute positions 
in world coordinate space. 


@ POLYGON REL 2 


The POLYGON REL 2 instruction draws a series of lines 
connecting a list of points specified as offsets in world 
coordinate space. 
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® RECTANGLE ABS 2 


The RECTANGLE ABS 2 instruction draws a series of lines 
forming a four-sided, perpendicular, polygon with the current 
position at one corner and a point specified as an absolute 
position in world coordinate space at the other. 


@ RECTANGLE REL 2 


The RECTANGLE REL 2 instruction draws a series of lines 
forming a four-sided, perpendicular, polygon with the current 
position at one corner and a point specified as an offset in 
world coordinate space at the other. 


These instructions draw curved lines by a _ process called 
"interpolation." CGL computes the shape of the curve from the 
supplied points and provides the missing points. 


@ ARC_ABS 2 


The ARC_ABS 2 instruction draws a section of a circle based 
on absolute positions in world coordinate space. 


@® ARC_REL 2 


The ARC_REL 2 instruction draws a section of a circle based 
on offsets in world coordinate space. 


@ CURVE_ABS 2 


The CURVE_ABS 2 instruction draws a smooth curve through a 
list of points specified as absolute positions in world 
coordinate space. 


@ CURVE_REL 2 


The CURVE REL 2 instruction draws a smooth curve through a 
list of points specified as offsets in world coordinate 
space. 


1.6.4 TEXT PRIMITIVE INSTRUCTIONS 


Graphics text is independent from and more flexible than the text 
available when the Terminal Subsystem is in text mode. Although 
it 1s possible to have both output primitives and text mode text 
on a view surface at the same time, it is recommended that you 
use only one at a time. The aspects of using text mode and 
graphics simultaneously are discussed in the Terminal Subsystem 
Manual. 
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TEXT 
The TEXT instruction draws a line of graphical text. 
INQUIRE TEXT EXTENT 2 


The INQUIRE TEXT EXTENT 2 instruction does not draw anything. 
It reports the amount of world coordinate space that would be 
used to draw a string of a specified length. 


LOAD FONT 


The LOAD FONT instruction loads multiple characters into’ the 
current user-defined font from a region in memory created by 
your application. This is much faster than loading 
individual characters. 


LOAD CHARACTER 


The LOAD CHARACTER instruction loads a character description 
into the current user-defined font. You provide’ the 
character description in the form of an array of integers. 
Each integer in the array describes a horizontal row of 16 
physical device coordinate positions. Each set bit specifies 
an "on" position and each clear bit specifies an "off" 
position (see Section 1.7.4.3). The first element describes 
the "top" row of the character; the next element describes 
the next row; and so forth. 


In order to set the bits in each of the elements, a program 
called a "font editor" is very useful. The algorithm for a 
Simple font editor is shown in the example program "FONT" in 


Appendix D. It reads font description data from a 
terminal-format file and performs a string-to-integer 
conversion for each line in the array. You can use an 


ordinary text editor to create the terminal-format file. 
BEGIN/END_DEFINE_ CHARACTER 


You can load a character by using the following sequence of 
instructions: 
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BEGIN DEFINE CHARACTER 


Output primitives and attributes 


END DEFINE CHARACTER 


The output primitives and attributes describe the character to be 


loaded. World coordinates and attribute sizes are mapped to the 
character dimensions specified in SET FONT SIZE. 


1.7 ATTRIBUTES ~ CONTROLLING THE WAY OUTPUT PRIMITIVES LOOK 


Attributes are characteristics of appearance, color, style, mode, 
width, and so forth. Attribute values stay the same until they 
are explicitly changed. For example, the default line style is 
SOLID. If you change the line style to DASHED, all subsequent 
lines will be drawn DASHED until you change it again. 


Each type of output primitive has a set of unique attributes. 
For example, line attributes have no effect on text primitives. 
The "global" output primitive attributes are the writing index 
and the writing mode. 


The background has an attribute called the background index. The 
background is defined to be all areas of the view surfaces not 
covered by the image of an output primitive. Some programmers 
think of the background on a video monitor as a permanent output 
primitive that fills the entire screen. 


1.7.1 LINE ATTRIBUTES 


The line primitives (line, polyline, polygon, rectangle, arc, and 
curve) have three attributes. The instructions that set them 
are: 


e@ SET LINESTYLE 


The line style is the pattern used to draw lines, except when 
fill is enabled. You can use ae standard line style or 
specify your own. The standard styles are: SOLID, DASHED, 
DOTTED, and combinations and variations of the above. 
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SET LINEWIDTH 


The line width is the width of line primitives in world 
coordinate units. You can control the vertical and 
horizontal line width independently. The width of a diagonal 
line varies according to the angle in which it is drawn (see 
Figure 7-3). The line width is "squeezed" or "stretched" in 
the viewing transformation; thus you should adjust it 
accordingly. 


SET_LINEWIDTH_ ORIENTATION 


The line width orientation controls the way CGL draws’ the 
ends of lines. You can think of the end of a line as a 
rectangle described by the vertical and horizontal line width 
(see Figure 7-3). You can control the offset between one 
corner of that rectangle and the point in world coordinate 
space specified as the starting position in the line 
primitive instruction. 


caeiataatinentin: — -yatapomandeampsatinanllnaithoi resin 
—————— 
= =< 
——— == 
— : 
a = al 
——— > oe 
I ee ane ETA oom eel a mam nie tetam 
————— = 
<< 
™ 


Figure 1-9: Polygon Fill (Drawn on HP7470 Plotter) 
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SET FILL MODE 


Fill creates solid images by filling in areas with a pattern 
consisting of a standard or user-defined character. When 
fill is off, CGL draws lines are drawn using the linestyle. 
When fill is on, CGL does not actually draw lines. Instead, 
it causes the space described by a line primitive to _ be 
"Shaded" or "flooded" with the fill pattern. 


If the line describes a closed area such as a_e polygon, 
rectangle, closed arc, or closed curve, CGL (in polygon fill 
mode) "shades" the area with the fill pattern. Figure 1-9 
shows a random curve drawn with polygon fill. 


If the line primitive describes an open area, CGL "shades" 
the area between the undrawn line and a predefined entity. 
The entity can be a horizontal line, a vertical line, or a 
point. Figure 1-10 shows the open area fill modes. 


Fill patterns are self-aligning. When two adjacent or 
overlapping areas are filled, the patterns align 
"seamlessly." 


SET FILL_ENTITY 


The fill entity specifies a reference for filling open areas. 
The reference can be a horizontal line, a vertical line, or a 
point. 
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Figure 1-10: Open Area Fill Modes 
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e@ SET _FILL CHAR 


The fill character specifies the character (from any _ font) 
used for area fill. You can change the size of the fill 
character by specifying a multiplier on the character height 
and/or width. 


The default fill character is a special case; in fact, it's 
not a character at all. Character zero (the default) causes 
CGL to uses a vertically-oriented version of the current line 
Style, rather than a character. The default line style is 
solid, thus the default fill is also solid. 


1.7.2 MARKER ATTRIBUTES 


The marker primitives (marker and polymarker) have one attribute. 
The instruction that sets it is: 


@ SET MARKER SYMBOL 


The marker symbol is the character used to draw markers. You 
can use a standard symbol or any other character. The 
(CORE-defined) standard symbols are: period, plus’ sign, 
asterisk, upper-case O, and upper-case X. 
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Figure 1l-ll: Character Size 


1-24 


ATTRIBUTES 


1.7.3 TEXT ATTRIBUTES 


The text primitive has six attributes. The instructions that set 
them are: 


SET CHARSIZE 


Character size is the size, in world coordinates, of the 
characters drawn by the TEXT instruction. You can control 
the height and the width independently. Figure 1-11 shows 


some examples of character size. Character size is only an 


approximation. It is affected by the current font, the 
viewing transformation, as well as other text attribute 
instructions (character path and character italic). 


The terminal subsystem supports only integer multiples of the 
"standard" character size (the character pattern as defined 
in physical device coordinate units). Thus, CGL selects’ the 
largest integer multiple of the "standard" size that will 
allow the required number of characters to fit on a 
horizontal line in the current viewport. CGL assumes that 
the character spacing is the same as the character width (see 
SET _CHARSPACE). 
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Figure 1-12: Character Spacing 
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For example, if the window is ten world coordinate units wide 
and you specify a character width of one unit, CGL selects 
the largest available size that will fit ten characters to a 
line. If you specify a character size of two units, CGL 
selects the largest size that will fit five characters to a 
line. 


The "standard" size for Font 0 characters is 12 X 25 physical 
device coordinate units. The video monitor screen is 960 X 
600 physical device coordinate units, thus it can contain 24 
rows of 80 characters. The "standard" size for user-defined 
characters varies from one to 16 physical device coordinates 
in both height and width (see the SET FONT SIZE instruction). 


The SET CHARPATH and SET _CHARITALIC instructions can change 
the available character sizes. character sizes. Characters 
drawn ina horizontal path are smaller than those drawn 
diagonally and larger than those drawn vertically. 
Characters drawn with a slant are larger than those with no 
slant. 


Figure 1-13: Character Path 
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SET _CHARSPACE 

The SET CHARSPACE instruction specifies the displacement 
between the starting points of adjacent letters. The 
displacement can be horizontal, vertical, or _ both. Figure 


1-12 shows some examples of character spacing. 


The SET CHARSPACE instruction affects the relative position 
(not the direction) of individual characters in a string. 
The direction is specified by the SET _CHARPATH instruction. 


CGL modifies the character spacing to maintain string 
rotation when the character path mode is "string." 


SET CHARPATH 


Character path is the direction in which text is drawn. It 
can apply to individual characters or to entire strings. 
There are eight possible directions as shown in Figure 1-13. 


The SET CHARPATH instruction has two modes: character and 
string. 


In character mode, SET CHARPATH rotates (changes the 
direction relative to horizontal) the individual characters 
in a text string, and sets the spacing to that explicitly 
defined by the last SET _CHARSPACE call. 
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Figure 1-14: Character Justification 
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In string mode, (the default) SET _CHARPATH rotates the entire 


string to the specified direction by changing the character 
spacing and the direction of the individual characters. 


SET _CHARPATH can be used in conjunction with SET CHARSPACE to 
create virtually any desired combination of direction and 
Spacing. Subsequent calls to SET CHARSPACE cause CGL to 
modify the spacing so as to maintain string rotation. 
Likewise, subsequent calls that set the CHARPATH to character 
mode also explicitly set the character spacing to that last 
specified. 


SET CHARJUST 


The SET CHARJUST instruction specifies the starting position 
of text primitives relative to the current position. It 
allows horizontal and vertical justification and centering. 
Figure 1-14 shows some examples of character justification. 


Justification and centering are defined in terms of 
horizontal text drawn left to right. Justification means 
that an edge of the string is aligned along an X (horizontal) 
or Y (vertical) line. The edges of a string are the top, the 
bottom, the leftmost side of the first character, and _ the 
rightmost side of the last character. Centering means that 
the string is bisected exactly by an X or Y line. 
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Figure 1-15: Character Italic 
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If the character spacing is not horizontal, CGL computes’7~ the 
position at which it would draw the first character of a 
horizontal string and draws the first character of the string 
at that position. The character spacing then determines the 
position of the second and subsequent characters. 


SET_CHARITALIC 


Character italic is a forward or backward slant that makes 
characters in a text string resemble italic type. Figure 
1-15 shows some examples of character italic. 


SET FONT 


The SET FONT instruction specifies the current font. Font 0 
contains the DEC Multinational Character Set (except for CO, 
Cl, and the delete character) which has 190 "printing" 
characters and cannot be redefined (see Figure 1-16). Fonts 
1, 2, and 3 are user-defined fonts that can each contain up 
to 190 characters that you load yourself. 
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Figure 1-16: Font 0 
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e SET FONT SIZE 


The SET FONT SIZE instruction initializes a user-defined 
font. It establishes the size of the font (the highest 
decimal character code) and the size of the characters in 
physical device coordinate units. 


When you execute SET FONT SIZE, CGL passes the font size and 
subsequent character definitions to all currently selected 
view surfaces. If a view surface is not selected at the time 
the font is defined, it cannot access the font. 


Thus, in theory, you can have different fonts, with 
characters of different aspect ratios, simultaneously defined 
for different view surfaces. 


1.7.4 COLOR - THE BITMAP ARCHITECTURE 


The terminal subsystem has an internal data structure called the 
bitmap that stores the information currently being displayed on 
the view surfaces. The bitmap consists of one or three planes. 
Each plane, in terms of a high-level language data structure, is 
a two-dimensional array of bits. Each bit corresponds to _ one 
physical device coordinate position and represents some 
information about brightness or color. The basic Professional 
(with no Extended Bitmap Option) has only one bitmap plane and 
thus can display only monochromatic images. The value of each 
bit represents a light or dark point on the screen. The actual 
color of a monochromatic image depends on the phosphor used in 
the monitor. 
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Figure 1-17: The Bitmap with Extended Bitmap Option 
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The Extended Bitmap Option (shown in Figure 1-17) provides’ two 
additional bitmap planes, making a total of three planes 
available to your program. The planes are numbered 1, 2, and 4. 
Each plane doubles the number of colors available to your program 
at any given time. 


With one plane, there are only two colors: dark and light. Two 
planes provide four colors. Three planes provide eight colors. 


In order to use the full color graphics capabilities of the 
Professional, an output device with appropriate capabilities, 
such as color video monitor or multi-pen plotter is required. 
The Extended Bitmap Option with a monochrome output device can 
Simulate colors with varying shades of lightness. 


The Extended Bitmap Option also provides a data structure called 
the color map. In order to understand how the bitmap and the 
color map work together to produce colors on the view surfaces, 
consider how colors in light are formed. 


1.7.4.1 HOW COLORS ARE FORMED - The Professional forms colors by 
addition. Red, green, and blue, the primary colors in light, can 
be added together in various proportions to approximate any color 
of the spectrum. 


The red and blue primary colors of light are similar, but not 
identical, to the red and blue primary colors of paint. In 
light, the blue primary is less green and the red primary is more 
orange. Equal amounts of the light primaries can be combined to 
form white light. 


Complementary colors in light are any two colors that form white 
light when combined. The three most important complementary 
colors can be formed by combining primaries: 


e Cyan (the complement of red) is formed by combining green and 
blue. 


@® Magenta (the complement of green) is formed by combining’ red 
and blue. 


@® Yellow (the complement of blue) is formed by combining red 
and green. 


You can combine any one of these three complementary colors’ with 
the third primary color to produce white light. For example, 
yellow added to blue forms white. 
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1.7.4.2 THE COLOR MAP - The Extended Bitmap Option provides” an 
internal data structure called the color map that has eight 
entries, each of which represents a color available to your 
program. Figure 1-18 shows a picture of the color map. 


Each color map entry consists of three values, one each for red, 
green, and blue. These "RGB" values specify how much of each 
primary color is used to form a color. RGB values have the range 
zero to seven. Zero is the minimum amount of color and seven is 
the maximum. 
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Figure 1-18: The Color Map with Default Values 


Each entry in the color map is eight bits wide; three bits for 
red, three for green but only two for blue, since it is difficult 
for the human eye to distinguish shades of blue. The blue value 
range is only (0, 2, 4, 6). Blue values are rounded down to the 
next lowest even number. 


Thus, a color map. entry can contain one of 256 (8 * 8 * 4) 
possible colors ranging from black (0,0,0) to white (7,7,6). 


CGL provides two instructions that access the color map: 
@ SET_COLOR_MAP 


The SET COLOR MAP instruction sets up the RGB values of the 
entire color map. 
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@ SET COLOR MAP ENTRY 


The SET COLOR MAP ENTRY instruction sets up the RGB values of 
an individual entry in the color map. 


NOTE 


When you change the values in a color map entry, 
you instantaneously change the color of any image 
on the video monitor screen that was drawn with 
that entry. This dynamic screen update feature 
can be used in some very sophisticated ways. 


CGL provides two global color attributes. The instructions’) that 
set them are: 


@ SET BACKGROUND INDEX 


This specifies the color map entry generally used to indicate 
the absence of an image. 


e@ SET WRITING INDEX 


This specifies the color map entry generally used to indicate 
the presence of an image. 


These definitions say "generally" because the exact manner in 


which CGL draws output primitives depends on the writing mode 
(described in Section 1.7.5). 


The background index and the writing index do not actually 
specify a color; they specify a color map entry. The color 
depends on the values stored in the color map. 


For example, suppose that you want to draw a yellow circle. If 
one of the color map entries contains the desired color, just set 
the writing index to that entry. Otherwise, choose a color map 
entry and set its red, green, blue values to the desired color, 
then set the writing index to that entry. 


CGL provides the following (VT125 compatible) default color map 
values: 
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Entry Color R G B Entry Color R G B 
I blue 0 0 7 5 white - t. & 
2 red 7 O QO 6 white + sh 4 
3 green 0 7 O 7 white 7 | J 


If only a monochrome monitor is present, CGL uses the following 
formula to convert RGB values to shades of grey: 


grey value = ((R * 2) + (G * 4) + B) / 7 


Thus, grey values also fall in the range zero to seven. 


1.7.4.3 THE BITMAP/COLOR MAP INTERFACE - With’ the Extended 
Bitmap Option present, the values stored in the three bitmap 
planes form a three-bit binary number (decimal value 0 to 7). 
This number, points to one of the entries in the color map. The 
RGB values in that entry determine the color of the _ physical 
device coordinate location controlled by that three-bit number. 
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Figure 1-19: The Color Map/Bitmap Interface 
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Figure 1-19 shows the relationship between the bitmap and_ the 
color map. The three bitmap planes form the number 110 (binary) 
or 6 (decimal) which the terminal subsystem uses as an index into 
the color map. Color map entry 6 contains the color red, which 
appears on the screen at the appropriate location. | 


You can control to which of the three bitmap planes your’ program 
has access. In other words, you can make each bitmap plane 
"read/write" or "read only." The SET_WRITING PLANES instruction 
specifies which planes your program can write into. 


The ability to "“write-protect”" individual planes should be used 
only for advanced graphics techniques. 


NOTE 


If a write-protected plane contains image 
information, that information will affect any 
image written over it. For example, suppose that 
you write-protect plane 2, and write ones into 
planes 1 and 4. Wherever plane 2 contains zero 
(forming 101 binary) the bitmap will point to 
color map entry 5. Wherever plane 2 contains one 
(forming 111 binary) the bitmap will point to 
color map entry 7. 
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Figure 1~20: The Writing Modes (Shown with Line Style) 
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1.7.5 THE WRITING MODE 


The writing mode is a powerful global attribute that is not 
included in the CORE Standard. The SET _WRITING MODE instruction 
(described in Chapter 5) defines the exact manner in which output 
primitives are drawn on the view surfaces. The ten writing mode 
values are described below. 


To describe how the writing mode works, the term "current 
pattern" is defined to be the bit pattern of whatever is being 
drawn. The set bits (1) are said to be "on" and the clear bits 
(0) are said to be "off." 


e If CGL is drawing a line with fill disabled, the current 
pattern is the line style. For example, if the line style is 
SOLID, all bits are "on"; there are no "off" bits. 


@ Otherwise, with fill enabled, the current pattern is a 
character cell. The bits that represent the character are 
"on." The remainder of the cell is "off." This encompasses 
line primitives with fill enabled, text primitives, and 
marker primitives. 


Figure 1-20 shows a screen image from an example program that 
demonstrates SET WRITING MODE. First, the program uses fill to 
create two large, vertical bars so that the screen has four equal 
areas of "on" and "off." Then it draws seven DOT DASHED 
horizontal lines using each of the visible writing mode values. 
The ten writing mode values are: 


QO. TRANSPARENT 


In transparent mode, CGL goes through the process of drawing 
Output primitives and updates the current position without 
actually drawing anything. Thus, transparent mode is’ useful 
for determining what the new current position will be after 
an image is drawn, without actually drawing the image. 


1. TRANSPARENT NEGATE 
Transparent negate mode is identical to transparent mode. 

2- COMPLEMENT 
The purpose of complement mode is to draw output primitives 
so that they stand out from existing images and thus have 
maximum visibility. Where the current pattern is "on," the 
image is affected. Wherever the current pattern is "off," 


the image is unaffected. 


With the Extended Bitmap Option, CGL draws the "on" areas 
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ATTRIBUTES 


using the "complement" of the existing image. Assuming all 
three planes are available: 


complement = 7 - n 
where n is the current (decimal) value in the bitmap 


For example, a solid line drawn in complement mode over a 
bitmap value of 5 changes the value to 2. The same line 
drawn over a value of 1 changes the value to 6. 


NOTE 


For complement mode to work effectively, you 
must first set up the color map so that 
complementary entries contain complementary 
(or at least different) colors. The default 
values were chosen for VT125 compatibility 
and may not produce the desired result. 


With no Extended Bitmap Option, CGL draws the "on" areas’ by 
negating (reversing) the existing image. For example, a 
solid line drawn over a dark value changes the value _ to 
light, while the same line over a light value changes the 
value to dark. 


COMPLEMENT NEGATE 


Complement negate mode is identical to complement mode except 
the current pattern is negated. Wherever the current pattern 
is "off," the existing image is affected. Wherever’ the 
current pattern is "on," no drawing occurs. 


OVERLAY 


Overlay is the default writing mode. In overlay mode, CGL 
draws output primitives "on top of" existing images. 
Wherever the current pattern is "on," CGL draws with the 
writing index. Where the current pattern is "off," no 
drawing occurs. 


OVERLAY NEGATE 


Overlay negate mode is identical to overlay mode except’ the 
current pattern is negated. Wherever the current pattern is 
"off," CGL draws in the writing index. Wherever the current 
pattern is "on," no drawing is done. 
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6. REPLACE 


In replace mode, CGL draws output primitives while erasing 
any existing image. Wherever the current pattern is "on," 
CGL draws in the writing index. Wherever the current pattern 
is "off," CGL draws in the background index. 


7. REPLACE NEGATE 


Replace negate mode is identical to replace mode except’ the 
current pattern is negated. Wherever the current pattern is 
"on," CGL draws in the background index. Wherever’ the 
current pattern is "off," CGL draw in the writing index. 


8. ERASE 


In erase mode, CGL draws output primitives by erasing 
existing images. CGL draws the entire current pattern in the 
background index. 


9. ERASE NEGATE 


Erase negate mode is identical to erase mode except CGL draws 
the entire current pattern in the writing index. 


1.7.6 THE GLOBAL ATTRIBUTE LIST 


CGL maintains a list that contains the current values of all 
attributes, both global and output primitive-specific. This 
attribute list is named "global" for compatibility with future 
versions of the CORE Graphics Library. The SET _GLOBAL_ATTRIBUTES 
instruction sets the values of the entire global attributes list. 
Its use-will improve performance when many attributes have to be 
set at once (for example on application startup), since the 
number of calls to CGL are minimized. 


In general, reducing the number of calls to CGL will give 
improved performance because of the overhead associated with each 
call to the resident library (and especially when CGL is 
clustered with other libraries). 


CHAPTER 2 


PROGRAMMING WITH THE CORE GRAPHICS LIBRARY 


2.1 CALLING CGL ROUTINES FROM HIGH-LEVEL LANGUAGES 


To access the CORE Graphics Library, use the standard PDP-1l1l_ R5 
calling sequence convention (sometimes called the FORTRAN Calling 
Sequence Convention). The library has one global entry point: 
CGL. The first parameter is an integer value that specifies an 
individual instruction. All parameters are passed by reference. 


The data type and relative position of each parameter must match 
that expected by CGL. Although CGL cannot perform data type 
checking of parameters, it checks the number of parameters 
supplied. If a function doesn't work correctly, check the 
parameter data types. One of the most common bugs is ae real 
parameter where an integer is required and vice-versa. 


2.1.1 THE BASIC-PLUS-2 INTERFACE 


To call CGL from a BASIC-PLUS-2 program or subprogram, use the 
CALL (BY REF) statement. External routine names do not have to 
be declared. Refer to your BASIC-PLUS-2 documentation for more 
information on the CALL statement. 


Format 
CALL CGL BY REF (inst_name, pl, p2, ..., pn) 


BY REF Specifies that the parameters are to be passed by 
reference (BASIC-~PLUS-2 passes the parameter's 
address). Always use BY REF with CGL calls. 


inst name is an integer expression specifying the desired CGL 
7 instruction. CGL provides a file named 
"LB:[1,5]CGL.B2S" (listed in Appendix C) that 
declares a set of integer constants corresponding to 

the names of the CGL instructions. 


Zot 


THE BASIC-PLUS-2 INTERFACE 


Diyvd2 750% are parameters as described in the individual 
instruction sections of this manual. 


Example 


10 S$INCLUDE "LB:[1,5]CGL.B2S" 
CALL CGL BY REF (INITIALIZE CORE) 
CALL CGL BY REF (NEW FRAME) 
CALL CGL BY REF (SET WINDOW, 0, 100, 0, 100) 
CALL CGL BY REF (MOVE_ABS_ 2, 0, 0) 
CALL CGL BY REF (RECTANGLE ABS 2, 100, 100) 
CALL CGL BY REF (TERMINATE CORE) 
END 


Notes 


@® To pass an array to CGL, you must include the (empty) 
parentheses in the BASIC-PLUS-2 call, for example: 


CALL CGL BY REF (POLYLINE ABS 2, X(), Y(), 4%) 


@® BASIC-PLUS-2 does not allow you to pass array elements by 
reference. This line is invalid: 


CALL CGL BY REF (INQUIRE CURRENT POSITION 2, & 
CP(0%), CP(1$%)) : 


@® You can pass a dynamic string variable to CGL. For example: 


CALL CGL BY REF (TEXT, S$, LEN(SS$)) 


2.1.2 THE COBOL-81 INTERFACE 


To call CGL from a COBOL program, use the CALL statement. 
External routine names do not have to be declared. Refer to the 
Tool Kit COBOL-81 Documentation Supplement for detailed 
information on calling CGL routines from COBOL. 


Format 
CALL "CGL" USING inst_name pl p2 ... pn. 


inst name is a PIC S9(4) COMP item specifying the desired CGL 
instruction. 


Di D2: es are actual parameters as described in the individual 
instruction sections of this manual. 


& 


Example 


THE COBOL-81 INTERFACE 


IDENTIFICATION DIVISION. 
PROGRAM-ID. 
OUTLINE-WINDOW. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 


01 NEW- FRAME PIC S9(4) COMP VALUE 92. 
01 SET-WINDOW PIC S9(4) COMP VALUE 80. 
Ol MOVE-ABS-—2 PIC S9(4) COMP VALUE 1. 
01 RECTANGLE-ABS-2 PIC S9(4) COMP VALUE 10. 
01 INITIALIZE-CORE PIC S9(4) COMP VALUE 90. 
01 TERMINATE-CORE PIC S9(4) COMP VALUE 91. 
01 NUM-CONST-0 PIC S9(4) COMP VALUE 0. 
01 NUM-CONST-100 PIC S9(4) COMP VALUE 100. 
01 REALI1 PIC X(4). 
01 REAL2 PIC X(4). 
01 REAL3 PIC X(4). 
01 REAL4 PIC X(4). 
PROCEDURE DIVISION. 
MAIN. 
CALL "CGL" USING INITIALIZE-CORE. 
CALL "CGL" USING NEW-FRAME. 
CALL "CONIFL" USING 
NUM-CONST-0O REALL 
NUM-CONST-100 REAL2 
NUM-CONST-0O REAL3 
NUM-CONST-100 REAL4. 
CALL "CGL" USING SET-WINDOW REAL1 REAL2 REAL3 REAL4. 
CALL "CGL" USING MOVE-ABS-2 REAL] REAL3. 
CALL "CGL" USING RECTANGLE-ABS-2 REAL2 REAL4. 
CALL "CGL" USING TERMINATE-CORE. 
GO TO DONE. 
DONE. 
EXIT. 
Notes 

e Text can be described as PIC X(n), where "n" is the maximum 
length of the text string. 

@ Tool Kit COBOL-81 provides a routine named CONIFL to convert 
integers to real numbers, as required by CGL (see example 
above). 

2.1.3 THE DIBOL INTERFACE 


To call CGL from a 
External 


statement. 
Refer to the 


DIBOL program, use the XCALL 
routine names do not have to be declared. 
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THE DIBOL INTERFACE 


Tool Kit DIBOL User's Guide for detailed information on calling 


CGL routines from DIBOL. 
Format 


XCALL CGL (inst_name, pl, p2, ..., pn) 


inst_name is the name of the CGL instruction. DIBOL provides a 
file named "LB:[1,5]CGL.DBL" (listed in Appendix C) 
that declares a set of integer constants 


corresponding to the names of the CGL instructions. 


pl,p2,... are actual parameters as described in the individual 
instruction sections of this manual. 


Example 


INCLUDE '‘'LB:[{1,5]CGL.DBL' 
PROC 
XCALL DCGL (GIC) 
XCALL DCGL (GNF) 
XCALL DCGL (GSW, O, 100, O, 100) 
XCALL DCGL (GMA2, 0O, 0) 
XCALL DCGL (GRA2, 100, 100) 
XCALL DCGL (GTC) 
END 


2.1.4 THE FORTRAN INTERFACE 


To call CGL from a FORTRAN program, use the CALL statement. 
External routine names do not have to be declared. Refer to the 
Tool Kit FORTRAN-77 Documentation Supplement for detailed 
information on calling P/OS routines from FORTRAN. 


Format 
CALL CGL (inst_name, pl, p2, ..., pn) 


inst_name is an integer constant specifying the desired CGL 
instruction. CGL provides a file named 
"LB:[1,5]CGL.FTN" (listed in Appendix C) that defines 
a set of symbolic names corresponding to the CGL 
instruction numbers. 


Dl p24 604 are actual parameters as described in the individual 
instruction sections of this manual. 


THE FORTRAN INTERFACE 


Example 


INCLUDE 'LB:[1,5]CGL.FTN' 
10 CALL. CGL. (GIC) 
CALL CGL (GNF) 
CALL CGL (GSW, 0., 100., 0., 100.) 
CALL CGL (GMA2, 0O., 0.) 
CALL. CGE: (GRAZ; 10044 100) 
CALL CGE. (GTC) 
END 


2.1.5 THE PASCAL INTERFACE 


To call CGL from a PASCAL program, you must use the external 
(SEQ11) procedure names declared in "LB:[1,5]CGL.PAS," which is 
provided with the Tool Kit PASCAL distribution kit. Refer to the 
Tool Kit PASCAL User's Guide for detailed information on calling 


a EEE EE EE ECT 


CGL routines from PASCAL. 
To use CGL.PAS, include this line in your program: 
S$INCLUDE 'LB:[1,5]CGLDEFS.PAS/NOLIST'; 


Remove the "/NOLIST" option if you prefer to see the declarations 
in your program listing. 


Format 
instname (pl, p2, ..., pn); 


inst_name is the name of a CGL instruction (a SEQl11 procedure 
declared in CGL.PAS). 


Dh gD 2 pce are actual parameters as described in the individual 
instruction sections of this manual. Check CGL.PAS 
for data types. 

Example 


PROGRAM OUTLINE WINDOW; 
INCLUDE 'LB:[1,5]CGLDEFS.PAS/NOLIST' 
BEGIN 
INITIALIZE CORE; 
NEW FRAME; 
SET WINDOW (0.0, 100.0, 0.0, 100.0); 
MOVE_ABS_ 2 (0.0, 0.0); 
RECTANGLE ABS 2 (100.0, 100.0); 
TERMINATE CORE; 
END. 


THE PASCAL INTERFACE 


Notes 
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When calling a CGL routine, always pass the exact number of 
actual parameters specified in this manual. The declarations 
are set up so that each procedure has a formal parameter 
named $$$, which has a default value corresponding to a CGL 
instruction number. For example: 

[EXTERNAL($PCGL) ] 

PROCEDURE MOVE ABS 2 (VAR X, Y : [READONLY] REAL; 

$$$ : INTEGER := 1); SEQ11; 


Do not pass an actual parameter for SSS. You would 
invalidate the instruction number and cause an error. 


Some of the instructions have formal parameters with the 
READONLY attribute and can accept constants as actual 
parameters (as shown above). 

Some of the instructions have formal parameters with the 
UNSAFE attribute so that you can pass arrays of different 
lengths. They are: 

@ POLYLINE ABS 2 

® POLYLINE REL 2 

@ POLYGON ABS 2 

@ POLYGON REL 2 

@® TXT 

@ POLYMARKER ABS 2, 

@ POLYMARKER REL 2 

e@ CURVE ABS 2 


@ CURVE REL 2 


CALLING CGL ROUTINES FROM MACRO-11 


To transfer control to a CGL routine: 


JSR PC,CGL 


General purpose register 5 (R5) contains the address of the 
parameter block which has the following format: 
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high byte low byte 


[8 mimes of paranetors 


address of parameter n 


The second word contains the address of a word containing the CGL 
instruction number. When the CGL routine returns, the contents 
of registers RO through R5 and floating accumulators 0 through 3 
are undefined. The stack pointer (SP) is restored to its state 
before the call. | 


You can check for errors by testing the carry (C) bit. If a 
function caused an error and an application does not call 
REPORT MOST RECENT ERROR, then the carry (C) bit is returned set 
from CGL. 


2.3 TERMINAL INPUT/OUTPUT 


Do not use your programming language's output facilities to write 
to the terminal while CGL is operational. The results of mixed 
text mode and graphics mode operations are unpredictable. 
Because CGL has no input instructions, it is recommended that you 
use the GETKEY routine (described in the Developer's Tool Kit 
User's Guide) for keyboard input. 


If you use your language's keyboard input facilities while CGL is 
operational, it is recommended that you turn off echo. Some 
languages can do this for you. For example, in BASIC-PLUS-2, you 
can Say: 


Z% = NOECHO(0$) 


2.4 USING CGL WITH THE P/OS USER INTERFACE LIBRARY 


You can use P/OS User Interface Library (POSRES) routines’ while 


Fal | 


USING CGL WITH THE P/OS USER INTERFACE LIBRARY 
CGL is operational. It is recommended that you follow this 
procedure to switch screen context from CGL to POSRES and back. 
1. Use INQUIRE COLOR MAP to save the contents of the color map. 
2. Use NEW FRAME to clear the screen. 
3. Use SET COLOR_MAP_ ENTRY to set entry zero to black. 
4. Use SET COLOR MAP ENTRY to set entry four to white. 
5. Call the POSRES routine. 
6. Use SET WRITING PLANES (7) to restore access to all planes. 
7. Use SET COLOR MAP to restore the color map. 


8. Redraw whatever was present before the POSRES call. 


2.5 BUILDING YOUR CGL PROGRAM 


Your language documentation describes how to create an 
Application Builder command (.CMD) file and an Overlay Descriptor 
Language (.ODL) file for your program. A typical .CMD file (for 
a PASCAL program named TEST) looks something like: 


TEST/CP/FP,TEST/MA/-SP=TEST/MP 
CLSTR=PASRES ,CGLFPU, POSRES , RMSRES : RO 


TASK = TEST 

STACK = 30 

UNITS = 46 

GBLDEF = TTSEFN:7 
‘GBLDEF = WCSLUN:45 
GBLDEF = MSSLUN:44 
GBLDEF = HLSLUN:43 
GBLDEF = MNSLUN:42 
GBLDEF = TTSLUN:41 
GBLDEF = GSLUN:41 

ASG = TT1:33 

ASG = SY:36 

ASG = LB:34:35:37 
*EXTSCT = MSSBUF:3100 
>EXTSCT = MNSBUF:4540 
*>EXTSCT = DMSBUF:4540 
*EXTSCT = MMSBUF:1000 
*EXTSCT = HLSBUF:3400 


Make the following edits: 


BUILDING YOUR CGL PROGRAM 


If the default is not /FP, ensure that you use the /FP 
Switch. 


Find the line that begins with "CLSTR" and insert "CGLFPU" as 
the second library in the line. (If it says "CGLEIS," change 
it to "CGLFPU".) It should look something like: 


CLSTR=PASRES , CGLFPU, POSRES , RMSRES : RO 


NOTE 


The CGLEIS (Extended Instruction Set) library 
is supported only for Tool Kit V1.0/1.5 
applications that were built against CGLEIS 
and used the /-FP option. Use CGLFPU for 
Tool Kit V1.7 and later applications. 


If there is already a line that defines the symbol "GSLUN," 
after it insert the line: 


GBLDEF = GSEFN:n 


which defines the event flag number to be used by CGL. If 
there is no line defining GSLUN, find the line that assigns a 
LUN to the terminal. It should look something like: 


ASG = TTlen 


where "n" is a decimal number. Convert the number’ from 
decimal to octal and insert the following line: 


GBLDEF = GSLUN:n 
GBLDEF = GSEFN:n 
where "n" is an octal number. For example: 
GBLDEF = GSLUN:41 
GBLDEF = GSEFN:1 
ASG = TT1:33 


The .CMD file should now look something like: 


BUILDING YOUR CGL PROGRAM 


TEST/CP/FP,TEST/MA/-SP=TEST/MP 
CLSTR=PASRES , CGLFPU , POSRES , RMSRES : RO 


TASK = TEST 

STACK = 30 

UNITS = 46 

GBLDEF = TTSEFN:7 
GBLDEF = WCSLUN:45 
GBLDEF = MSSLUN:44 
GBLDEF = HLSLUN:43 
GBLDEF = MNSLUN:42 
GBLDEF = TTSLUN:41 
GBLDEF = GSEFN:1 
GBLDEF = GSLUN:41 

ASG = TT1:33 

ASG = SY:36 

ASG = LB:34:35:37 
*EXTSCT = MSSBUF:3100 
e-FEXTSCT = MNSBUF:4540 
*EXTSCT = DMSBUF:4540 
*EXTSCT = MMSBUF:1000 
*-EXTSCT = HLSBUF: 3400 
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2.6 INSTALLING YOUR CGL PROGRAM 

Application programs that use CGL must specify the CGL cluster 
library in their installation command (.INS) file. (Refer to the 
Tool Kit User's Guide for detailed information on .INS’ files.) 
Insert: 


INSTALL [ZZ2SYS]CGLFPU.TSK/LIBRARY 


If you use the PLAYBACK FILE instruction in your application, you 
must install the file read task used by CGL. Insert: 


INSTALL [ZZSYS]CGLGRT.TSK/TASK 


If you use the LOAD FONT instruction, you must install the _ font 
files as regions in memory by either: 


1. Creating the region dynamically within your application (using the 
directive), or 


2. Installing them here using: 


INSTALL filespec/COMMON 


CHAPTER 3 


CONTROL INSTRUCTIONS 


This chapter describes the instructions that control the overall 
operation of the CORE Graphics Library. 


3.1 INITIALIZE CORE —- PREPARE GRAPHICS SYSTEM FOR USE 

The INITIALIZE CORE instruction guarantees that the graphics 
system is in a standard state with default parameters 
established. All programs that use CGL must execute the 
INITIALIZE CORE instruction before any other CGL instruction (or 
any subprogram that uses CGL). 

CORE Standard 


INITIALIZE CORE (outlevel, inlevel, dimension, hidden_surface) 
CORE Graphics Library 
INITIALIZE CORE 
Notes 
@® INITIALIZE CORE is instruction number 90. 


@ You cannot execute INITIALIZE CORE more than once before 
executing a TERMINATE CORE instruction. 


@e If you do not execute this instruction before any other CGL 
calls, CGL does it for you and returns error number 743 for 
that call. 


@® The video monitor is implicitly initialized and selected by 
the INITIALIZE CORE instruction. 


INITIALIZE CORE 


Errors 


701. The CORE system is already initialized. 


3.2 TERMINATE CORE - GRAPHICS SYSTEM USAGE FINISHED 
The TERMINATE CORE instruction performs an implicit END BATCH, 
deselects and terminates all view surfaces, and releases all 
resources used by the CGL system. 
CORE Standard 
TERMINATE CORE () 
CORE Graphics Library 
TERMINATE CORE 
Notes 


@ TERMINATE CORE is instruction number 91. 


@® Failing to terminate may cause your program to retain 
resources that are no longer needed. 


Errors 


743. The CORE system has not been initialized. 


3.3 NEW FRAME - REFRESH VIEW SURFACE 
The NEW FRAME instruction clears all currently selected view 
surfaces. Clearing a view surface is equivalent to filling the 
entire surface with the background index. All images are lost. 
CORE Standard 

NEW FRAME () 
CORE Graphics Library 


NEW FRAME 


NEW_FRAME 


Notes 
@ NEW _FRAME is instruction number 92. 
@ NEW _FRAME affects only currently selected writing planes. 


@ NEW _FRAME has no effect on plotter view surfaces. 


3.4 INITIALIZE VIEW _SURFACE - ENABLE ACCESS TO DEVICE 
The INITIALIZE VIEW SURFACE instruction prepares a specific 
output device for graphics output. It does not add that device 
to the list of currently selected devices; to do so you must also 
select the view surface. 
CORE Standard 

INITIALIZE VIEW_SURFACE (surface_name, type) 
CORE Graphics Library 


INITIALIZE VIEW SURFACE (name, length) 


name is a string expression that specifies the view surface 
name. 
length is an integer expression taht specifies the number of 


characters in the string. 

There are three view surfaces available: 

1. video 

2. HP plotter 

3. file 
To initialize the video view surface use the surface name "TI:"; 
for the HP plotter use "GH:". Both these surface names, 
therefore, have length 3. 
The file "device" creates a file of GIDIS display commands” that 
can be used as input to other programs. The file view surface 


name should be an RMS compatible file specification with 
appropriate length (the maximum is 60 characters). 


INITIALIZE VIEW SURFACE 


NOTE 
Only one file view surface can be active at one 


time. 


You can re-execute the file using the PLAYBACK FILE instruction. 
The file can also be printed using P/OS print services. It is 
recommended that the file name have an’ extension ".GID", since 
this is the default assumed by print services. 
Not all CGL commands generate GIDIS output to the file. 
Notes 
@® This will normally be transparent to your application with 
one exception, the WAIT command is handled internally by CGL. 
If you want to playback a series of slides, for example, with 
pauses between each slide, you must re-execute the wait again 
between each slide. 
@e INITIALIZE VIEW SURFACE is instruction number 103. 
@ A device must be initialized before it is selected. 


-@ The video monitor is implicitly initialized and selected when 
you execute the INITIALIZE CORE instruction. 


Errors 
705. View surface already initialized. 
706. Invalid view surface name. 
906. Error on view surface device. 
907. Invalid when in begin/end batch. 
908. View surface not ready. 


910. Invalid when in begin/end define character. 


3.5 TERMINATE VIEW SURFACE ~- DISABLE ACCESS TO DEVICE 


The TERMINATE VIEW_SURFACE instruction terminates access to and 
releases a specific output device. 


TERMINATE VIEW _SURFACE 


CORE Standard 
TERMINATE VIEW SURFACE (surface_name) 
CORE Graphics Library 


TERMINATE VIEW SURFACE (name, length) 


name is a string expression that specifies the view surface 
name. 
length is an integer expression that specifies the number of. 


characters in the string. 
Notes 


@ TERMINATE VIEW_SURFACE is instruction number 104. 


@ See INITIALIZE VIEW SURFACE for a list of valid surface 


names. 


e All view surfaces are impicitly deselected and terminated by 


the TERMINATE CORE instruction. 
Errors 
708. View surface not initialized. 
906. Error on view surface device. 
907. Invalid when in begin/end batch. 


910. Invalid when in begin/end define character. 


3.6 SELECT VIEW _SURFACE - ENABLE GRAPHICS OUTPUT TO DEVICE 


The SELECT _VIEW_SURFACE instruction adds the specified device to 
the set of view surfaces to which CGL performs output. 
CORE Standard 
SELECT VIEW SURFACE (surface_name) 
CORE Graphics Library 
SELECT _VIEW_SURFACE (name, length) 
name is a string expression that specifies the view surface 


name. 


SELECT VIEW SURFACE 


length is an integer expression that specifies the number of 


characters in the string. 


Notes 
@ SELECT VIEW SURFACE is instruction number 105. 
@ See INITIALIZE VIEW_SURFACE for a list of valid surface 
names. 
@ A device must be initialized before it is selected. 
@® The video monitor is implicitly initialized and selected by 
the INITIALIZE CORE instruction. 
@® SELECT VIEW SURFACE has no effect on the current attribute 
values, current position, and viewing transformation. 
e CGL conveys current state information (except font 
descriptions) to each view surface when you select it. 
SET FONT SIZE passes a font size and subsequent character 
definitions to all currently selected view surfaces. Thus, 
in theory, you can have different fonts, with characters of 
different aspect ratios, simultaneously defined for different 
view surfaces. 
Example 


program example; 


‘include 'lb:[1,5]cgldefs.pas/nolist' 


procedure draw picture; external; 


begin 


initialize core; 

draw picture; 

deselect _view_surface ('TI:',3); 
initialize view_surface ('GH',3); 
select _view_surface ('GH:',3); 
draw _picture; 

deselect _view_ surface ('GH:',3); 
select view surface ('TI:',3); 


draw picture on video } 
deselect video 3} 
initialize plotter } 
select plotter } 

draw picture on plotter } 
deselect plotter } 

select video } 


end { example }; 


Errors 


708. View surface not initialized. 


SELECT VIEW_SURFACE 


709. View surface already selected. 
906. Error on view surface device. 
907. Invalid when in begin/end batch. 


910. Invalid when in begin/end define character. 


3.7 DESELECT VIEW SURFACE - DISABLE GRAPHICS OUTPUT TO DEVICE 


The DESELECT_VIEW_SURFACE instruction removes’ the specified 
device to the set of view surfaces to which CGL performs output. 


CORE Standard 
DESELECT _VIEW_SURFACE (surface_name) 
CORE Graphics Library 


DESELECT VIEW_SURFACE (name, length) 


name is a string expression that specifies the view surface 
name. 
length is an integer expression that specifies the number of 


characters in the string. 
Notes 
@ DESELECT VIEW_SURFACE is instruction number 106. 


@® See INITIALIZE VIEW SURFACE for a list of valid surface 
names. 


@ DESELECT VIEW_SURFACE has no effect on the current attribute 
values, current position, and viewing transformation. 


@® All view surfaces are implicity deselected and terminated by 
the TERMINATE CORE instruction. 


Errors 
711. View surface not selected. 


906. Error on view surface device. complete batch first). 


DESELECT VIEW SURFACE 


907. Invalid when in begin/end batch. 


910. Invalid when in begin/fend define character. 


3.8 PLAYBACK FILE - EXECUTE FILE OF GRAPHICS COMMANDS 


The PLAYBACK FILE instruction opens and reads a file of GIDIS 
commands and re-executes them on all currently selected view 
surfaces. Your application could, for example, create a file by 
selecting the file view surface, draw some lines, text, and so 
forth, on the video then play the file back to the plotter. 


NOTE 
If you want to playback a file currently open as 
a view surface you must deselect and terminate 


that view surface (to close the file) before the 
file can be read for playback. 


You can also play back one file while a file view surface is 
selected, thus appending GIDIS commands from one file to another 
file. 
CORE Standard 

Not included. 
CORE Graphics Library 


PLAYBACK FILE (name, length) 


name is a string expression that specifies the view surface 
name. 
length is an integer expression that specifies the number of 


characters in the string. 
Notes 
@ PLAYBACK FILE is instruction number 11ll. 


@ The name should be an RMS compatible file specification. The 
name length can be a maximum of 60 characters. 


PLAYBACK FILE 


e All attributes are saved and restored around the playback. 


e Files created with other software can also be played _ back. 
They must have sequential organization, with records of no 
more than 512 (decimal bytes) in length. 

Errors 


911. Error on file playback (file not found, etc). 


3.9 BEGIN BATCH - BEGIN STORING VIEW SURFACE UPDATES 


The BEGIN BATCH instruction begins storing all subsequent view 
surface updates in a buffer and continues to do so until it 
executes an END BATCH instruction. If the buffer becomes’ full, 
CGL empties it (performs all stored updates) and continues to 
store subsequent updates. Some instructions also cause the 
buffer to be emptied (but they do not end batching); the CGL WAIT 
instruction is an example. Batching should be used wherever 
appropriate since it will give a significant performance 
improvement. 


CORE Standard 
BEGIN BATCH OF UPDATES () 
CORE Graphics Library 
BEGIN BATCH 
Notes 
@ BEGIN BATCH is instruction number 96. 


@® Images are not affected by BEGIN BATCH = END BATCH 
instructions. Only the view surface is affected. 


Errors 


716. There has been no END BATCH since the last BEGIN BATCH. 


3.10 END BATCH - END BATCH OF UPDATES 


The END BATCH instruction performs all of the view’ surface 
updates that have been stored since the last BEGIN BATCH 
instruction. CGL no longer buffers view surface updates after 
END BATCH executes. 


END BATCH 


CORE Standard 

END BATCH OF UPDATES () 
CORE Graphics Library 

END BATCH 
Notes 


@ END BATCH is instruction number 97. 


@ You must execute a BEGIN BATCH instruction at some point 


before using END BATCH. 
Errors 


717. There has been no corresponding BEGIN BATCH. 


3.11 CGL_WAIT - SUSPEND EXECUTION 


The CGL WAIT instruction causes CGL to suspend all changes 
view surfaces for a specified period of real time. 


CORE Standard 
Not included. 

CORE Graphics Library 
CGL WAIT (seconds) 


seconds, is a real expression that specifies the number 
seconds to wait. 


Notes 
@e cCGL WAIT is instruction number 95. 


® The instruction name "CGL WAIT" was chosen because "WAIT" 
a reserved word in BASIC-PLUS-2. 


3.12 ERASE VIEWPORT - ERASE IMAGES IN VIEWPORT 


to 


of 


is 


The ERASE VIEWPORT instruction clears the viewport without 
affecting other portions of the screen. Clearing the viewport is 


equivalant to filling the viewport with the background index. 


3=10 


ERASE VIEWPORT 


CORE Standard 


Not included. 


CORE Graphics Library 


ERASE VIEWPORT 


Notes 

@ ERASE VIEWPORT is instruction number 88. 

@ The ERASE VIEWPORT instruction affects only the currently 
selected writing planes. 

e This instruction is useful for applications that simulate 
multiple windows by moving the viewport to one of several 
disjoint areas. For example, you can create two 
pseudo-windows by bisecting the screen. 

@ The SET VIEWPORT 2 instruction is described in Chapter 4. 


3.13 PRINT SCREEN - SEND SCREEN IMAGE TO PRINTER 


The 


PRINT SCREEN instruction sends an image of the video monitor 


screen contents to a graphics (LA50O or LA100) printer. 


CORE Standard 


Not included. 


CORE Graphics Library 


The 


PRINT SCREEN (lower _x, upper x, 
lower y, upper y, 
x offset, y offset) 


parameters are real expressions representing world 


coordinates. 


lower x specifies the lower limit of the X coordinate. 


upper xX specifies the upper limit of the X coordinate. 


lower _y specifies the lower limit of the Y coordinate. 


upper y specifies the upper limit of the Y coordinate. 


x offset specifies the horizontal margin. 


ae et 


PRINT SCREEN 


y offset specifies the vertical margin. 
Notes 
@® PRINT SCREEN is instruction number 94. 


e If a plotter is connected, PRINT SCREEN is inoperative. 


3.14 REPORT MOST RECENT ERROR - IDENTIFY EXECUTION ERROR 
The REPORT MOST RECENT ERROR instruction reports the instruction 
number and error code associated with the most recent CGL 
execution error and returns the system to a non-error state. 
CORE Standard 
REPORT MOST RECENT ERROR (error report) 
CORE Graphics Library 
REPORT MOST RECENT ERROR (inst name, code) 
inst_name is an integer variable that receives the name (number) 
of the instruction that caused the most’ recent 
execution error. 
code is an integer variable that receives the error code. 
Notes 
@ REPORT MOST RECENT ERROR is instruction number 93. 
e The error codes are listed in Appendix A. 
@ Use REPORT MOST RECENT ERROR if it appears that a  CGL 
instruction is not working correctly or not working at all. 
For example, if you attempted to execute: 
TEXT ("fubar", -5) 
CGL would not draw anything. REPORT MOST RECENT ERROR would 
tell you that a number 16 instruction (TEXT) caused error 


number 2 (N is less than or equal to zero). 


e If CGL is in a non-error state, REPORT MOST RECENT ERROR 
returns inst name and code values of zero. 


CHAPTER 4 


VIEWING TRANSFORMATION INSTRUCTIONS 


This section explains the instructions”~ that describe the 
graphical world and control the viewing transformation. 


4.1 SET WINDOW - SPECIFY WORLD COORDINATE SPACE 
The SET WINDOW instruction specifies the edges of the window and 
resets the current position and the fill entity coordinates to 
the origin of the window. The window is the visible portion of 
world coordinate space (the portion that is mapped onto the 
viewport). 
CORE Standard 

SET WINDOW (xmin, xmax, ymin, ymax) 

INQUIRE WINDOW (xmin, xmax, ymin, ymax) 
CORE Graphics Library 

SET WINDOW (xmin, xmax, ymin, ymax) 

INQUIRE WINDOW (xmin, xmax, ymin, ymax) 


The parameters are real expressions/variables representing world 
coordinates. 


xmin specifies the X (horizontal) lower limit of the window. 
xmax specifies the X (horizontal) upper limit of the window. 
ymin specifies the Y (vertical) lower limit of the window. 


ymax specifies the Y (vertical) upper limit of the window. 


SET WINDOW 


Notes 
@ SET WINDOW is instruction number 80. 
@ INQUIRE WINDOW is instruction number 81. 
e The default window specification is (0, 959, 0, 599), which 
corresponds to the Professional's physical device 


coordinates. 


Errors 


501. Invalid coordinate values (minimum >= maximum). 


4.2 SET ORIGIN - SPECIFY ORIGIN OF WINDOW 


The SET ORIGIN instruction specifies which corner of the viewport 
corresponds to the origin of the window and resets the current 
position and fill entity coordinates to the new origin. The 
origin of the window is the point addressed by the smallest world 
coordinate pair. For example, a window defined as (1,2,1,2) has 
as its origin the point (1,1). 


CORE Standard 
Not included. 

CORE Graphics Library 
SET ORIGIN (origin 
INQUIRE ORIGIN (origin) 


origin is is an integer expression/variable that specifies one 
of the following corners: 


bottom left 

top left (default) 
top right 

bottom right 


GIN Ee © 


Notes 


@® SET ORIGIN is instruction number 86. 


SET ORIGIN 


@ INQUIRE ORIGIN is instruction number 87. 
@e When you execute a SET WINDOW or SET VIEWPORT 2 instruction, 


CGL resets the current position (and the fill entity 
coordinates) to the origin of the window. 


4.3 SET WINDOW CLIPPING - ENABLE OR DISABLE WINDOW CLIPPING 
The SET WINDOW CLIPPING instruction enables or disables’ the 
displaying of output primitives (or portions of output 
primitives) that fall outside of the window. 
CORE Standard 

SET WINDOW CLIPPING (on_off) 

INQUIRE WINDOW CLIPPING (on_off) 
CORE Graphics Library 

SET WINDOW CLIPPING (on_ off) 

INQUIRE WINDOW CLIPPING (on_off) 


on_off is an integer expression/variable that contains one of 
the following values: 


0 = off anything else = on 


Notes 
@ SET WINDOW CLIPPING is instruction number 84. 
@ INQUIRE WINDOW CLIPPING is instruction number 85. 
@ Window clipping is on by default. 


@ If you disable window clipping, output primitives are clipped 
at the view surface edges only. 


4.4 SET NDC SPACE 2 - DEFINE SIZE OF NDC SPACE 


The SET NDC SPACE 2 instruction defines the NDC address space of 
all view surfaces within which viewports will be specified. 


SET NDC SPACE 2 


CORE Standard 


SET NDC SPACE 2 (width, height) 


INQUIRE NDC SPACE 2 (width, height) 


CORE Graphics Library 


SET NDC SPACE 2 (width, height) 


INQUIRE NDC SPACE 2 (width, height) 


width specifies the width of NDC space. The parameters’ are 


real expressions greater than zero, less than or equal 
to one. At least one parameter must equal one. 


height specifies the height of NDC space. 
Notes 

@e SET NDC SPACE 2 is instruction number 107. 

@ INQUIRE NDC _ SPACE 2 is instruction number 108. 

@® The default NDC space is (1,1). 

@e The SET NDC SPACE 2 instruction sets the default viewport to 
0g: Og) 

@ SET NDC _ SPACE 2 can be used at most once per initialization 
of CGL and that Cait must appear before any 
SET/INQUIRE VIEWPORT 2 instruction. 

e® For the Professional video monitor, an NDC space of (1, 
0.625) will producte a square aspect ratio. For example, in 
a window defined as (0, 100, 0, 100), a rectangle 10 xX 10 
will be square and the bottom of the screen (with origin at 
top) will correspond to the Y coordinate 62.5. 

Errors 


903. SET _NDC_SPACE 2 already invoked since initialization. 


504. 


Default NDC space already established. 


505. <A parameter is not in the range 0 to l. 


506 


507 


SET NDC_SPACE 2 


. Neither width nor height has a value of l. 


. Neither WIDTH nor HEIGHT can be equal to zero. 


4.5 SET VIEWPORT 2 - SPECIFY USABLE AREA OF VIEW SURFACE 


The SET VIEWPORT 2 instruction specifies a portion of 


normalized 


device coordinate space to be the viewport and resets the current 
position and the fill entity coordinates to the origin of 


window. 


uses all of NDC space (the entire view surface) by default. 


CORE 


CORE Graphics Library 


The 


Standard 


SET VIEWPORT 2 (xmin, xmax, ymin, ymax) 


INQUIRE VIEWPORT 2 (xmin, xmax, ymin, ymax) 


SET VIEWPORT 2 (xmin, xmax, ymin, ymax) 


INQUIRE VIEWPORT 2 (xmin, xmax, ymin, ymax) 


parameters are 


real expressions 


representing 


device coordinates in the range 0 to the NDC upper limit. 


xmin 

xmax 

ymin 

ymax 

Note 
® 


specifies the 
specifies the 
specifies the 
specifies the 


Ss 


lower limit of the X 
upper limit of the X 
lower limit of the Y 


upper limit of the Y 


coordinate. 
coordinate. 
coordinate. 


coordinate. 


SET VIEWPORT 2 is instruction number 82. 


INQUIRE VIEWPORT 2 is instruction number 83. 


The default viewport specification is (0, NDC WIDTH, 0, 


HEIGHT). 


The viewport’s sides are vertical and its top and bottom 


horizontal. 


the 


If you do not execute a SET VIEWPORT 2 instruction, CGL 


normalized 


NDC 


are 


SET VIEWPORT 2 


@® The viewport cannot exceed the bounds of NDC space. 


Errors 
501. Invalid coordinate values (minimum >= maximum). 


508. A value outside NDC space is not allowed. 


4.6 SCROLL —- MOVE SCREEN CONTENTS 
The SCROLL instruction moves the contents of the entire screen by 
a specified amount of world coordinate space. It has no effect 
on the viewing transformation or current values. 
CORE Standard 

Not included. 
CORE Graphics Library 

SCROLL (delta_x, delta y) 


The parameters are real expressions representing world 
coordinates. 


delta x specifies the X (horizontal) movement. 
delta y specifies the Y (vertical) movement. 
Notes 


e SCROLL is instruction number 89. 


@e The direction of movement depends on the origin of the 
window. For example, with the default origin (top-left), 
positive delta_x values scroll toward the left side of the 
screen and positive delta _y values scroll toward the top of 
the screen. Figure 4-1 shows how the SCROLL instruction 
works with the default origin. 


@e Scrolling does not cause any image to be drawn. The area 
scrolled onto the screen is filled with the background index. 


@ Images that scroll off the screen are lost. 


SCROLL 


X,Y = Positive world coordinates 


Figure 4-1: The SCROLL Instruction with Default Window Origin 
4.7 SCROLL VIEWPORT - MOVE VIEWPORT CONTENTS 
The SCROLL VIEWPORT instruction moves the contents of the 
viewport by a specified amount of world coordinate space without 
affecting images drawn outside the viewport. It has no effect on 
the viewing transformation or current values. 
CORE Standard 

Not included. 
CORE Graphics Library 

SCROLL VIEWPORT (delta_x, delta_y) 


The parameters are real expressions representing world 
coordinates. 


SCROLL VIEWPORT 


delta x specifies the X (horizontal) movement. 


delta_y specifies the Y (vertical) movement. 


Notes 

® SCROLL VIEWPORT is instruction number 102. 

e The direction of movement depends on the origin of the 
window. For example, with the default origin (top-left), 
positive delta_x values scroll toward the left side of the 
screen and positive delta_y values scroll toward the top of 
the screen. Figure 4-1 shows how the SCROLL VIEWPORT 
instruction works with the default origin. 

® Scrolling does not cause any image to be drawn. The area 
scrolled into the viewport is filled with the background 
index. 

@® Images that scroll outside the viewport are lost. 


CHAPTER 5 


GLOBAL ATTRIBUTE INSTRUCTIONS 


This chapter describes the instructions that set the values of 
global attributes. 


NOTE 


The following instructions require the Extended 
Bitmap Option. They do nothing if it is not 
present. 


SET COLOR MAP ENTRY 
SET COLOR MAP 


SET WRITING PLANES 


5.1 SET WRITING INDEX - SELECT COLOR MAP INDEX FOR IMAGES 


The SET WRITING INDEX instruction selects an index into the color 
map for images created by subsequent output primitive 
instructions. It does not change the appearance of any existing 
images. 


CGL uses the writing index to draw images in OVERLAY, 
OVERLAY NEGATE, and ERASE NEGATE modes. For more detailed 
information, refer to the description of the writing mode in 
Chapter l. 
CORE Standard 

DEFINE COLOR_INDEX (surface name, i, cl, c2, c3) 


INQUIRE COLOR_INDEX (surface name, i, cl, c2, c3) 


SET WRITING INDEX 


CORE Graphics Library 
SET WRITING INDEX (index) 
INQUIRE WRITING INDEX (index) 


index is an integer expression/variable that specifies one of 
the eight color map entries (0 to 7). 


Notes 
@® SET WRITING INDEX is instruction number 60. 
@ INQUIRE WRITING INDEX is instruction number 61. 


e The default writing index is color map entry 7 (which 
contains the color white by default). 


@e If the Extended Bitmap Option is not present, the following 
writing index values apply: 


O = dark 
other values = light (default) 


® The SET WRITING INDEX instruction works differently when used 
with plotter view surfaces (see Appendix B). 


Errors 


401. One or more of the attribute values is invalid. 


59-2 SET BACKGROUND INDEX - SET BACKGROUND COLOR MAP INDEX 


The SET BACKGROUND INDEX instruction selects an index into’ the 
color map for the background. It does not change the appearance 
of the background until CGL executes a NEW_FRAME or 
ERASE VIEWPORT instruction. 


CGL uses the background index to erase the view Surface 
(NEW FRAME) and to draw images in REPLACE, REPLACE NEGATE, and 
ERASE modes. For more detailed information, refer to the 
description of the writing mode in Chapter l. 
CORE Standard 

SET BACKGROUND _ INDEX (index) 


INQUIRE BACKGROUND INDEX (index) 


SET BACKGROUND INDEX 


CORE Graphics Library 


SET BACKGROUND INDEX (index) 


INQUIRE BACKGROUND INDEX (index) 


index is an integer expression/variable that specifies one of 


the eight color map entries (0 to 7). 


Notes 
@ SET BACKGROUND INDEX is instruction number 62. 
@ INQUIRE BACKGROUND INDEX is instruction number 63. 
e The default background index is color map entry 0 £(which 
contains the color black by default). 
e If the Extended Bitmap Option is not present, the following 
background index values apply: 
0 = dark (default) 
other values = light 
@ The SET BACKGROUND INDEX instruction works differently when 
used with plotter view surfaces (see Appendix B). 
Errors 


401. One or more of the attribute values is invalid. 


563 


SET COLOR_MAP_ ENTRY - SET COLOR MAP ENTRY RGB VALUES 


The SET _COLOR_MAP_ENTRY instruction sets the RGB (red, green, 
blue) values of an individual color map entry and of any existing 
images drawn with that entry. 


CORE Standard 


Not included. 


CORE Graphics Library 


SET COLOR MAP ENTRY (entry, color) 


INQUIRE COLOR MAP ENTRY (entry, color) 


entry is an integer expression (range 0 to 7) that specifies 


which color map entry to set. 


5-3 


SET COLOR MAP ENTRY 


color is a three-element integer array (range 0 to 7) that 


specifies red, green, and blue values in that order. 


Notes 

@ SET COLOR MAP ENTRY is instruction number 66. 

@ INQUIRE COLOR MAP ENTRY is instruction number 67. 

@ SET COLOR MAP ENTRY has no effect on plotter view surfaces. 

@® You can declare a color map entry array with whatever 
subscripts your programming language allows. If the array is 
indexed from zero to two: 
color(0) specifies a red value 
color(1) specifies a green value 
color(2) specifies a blue value 

Example 


This PASCAL code shows how to use an array constant to specify a 
color map entry. The type declarations are from the include file 
CGLDEFS.PAS and are shown only for illustrative purposes. 


procedure example; { Set color map entry no. 4 to white } 


type 
RGB value = 0..7; 
color map entry = 


array [1..3] of RGB value; 


const 


white = color map entry (7, 7, 6); 


begin 


set color map entry (4, white); 


end { example }; 


5.4 


SET COLOR MAP - SET ALL COLOR MAP RGB VALUES 


The SET COLOR MAP instruction sets the RGB (red, green, blue) 
values of the entire color map and of any existing images. 


CORE 


Standard 


Not included. 


SET COLOR _MAP 


CORE Graphics Library 


SET _COLOR_MAP (color_map) 


INQUIRE COLOR_MAP (color_map) 


color map is a 24-element integer array containing color values 


(range 0 to 7) that specify all eight color map entries 
in the order red, green, blue, red, green, blue, and so 


forth. 
Notes 

@ SET _COLOR_MAP is instruction number 64. 

@ INQUIRE COLOR_MAP is instruction number 65. 

@ SET _COLOR_MAP has no effect on plotter view surfaces. 

@ You can declare a color map array with whatever’ subscripts 
your programming language allows. If the array is indexed 
from zero to 23: 

Array Element 0 1 2 3 4 oe 19 20 21 22 23 

Color Map Entry 0 0 0 1 1 cee 6 6 7 7 7 

RGB Value R G B R G eee G B R G B 
Example 


This PASCAL code shows how to use an array constant to set’ the 
color map. The type declarations are from the include file 
CGLDEFS.PAS and are shown only for illustrative purposes. 


procedure example; { Set up the color map } 
type 


RGB value 
color _map 


O..73 
array [0..23] of RGB value; 


const 


default_map := color map (7,0,0, 0,7,0, 0,0,6, 


0, 
7,7,6, 7,7,0, 7,0,6, 0, 


begin 


set color map (default map); 


end { example }; 


SET WRITING PLANES - SELECT COMBINATION OF PLANES 


5-5 SET WRITING PLANES - SELECT COMBINATION OF PLANES 


The SET WRITING PLANES instruction selects which of the three 
bitmap planes can be written into by CGL. It does not affect the 
contents of any of the planes. For more information, refer to 
the description of the bitmap in Chapter l. 
CORE Standard 

Not included. 
CORE Graphics Library 

SET WRITING PLANES (n) 


INQUIRE WRITING PLANES (n) 


n is an integer expression/variable that specifies’ that 
CGL can write into one of the following combinations of 
planes: 

Writeable Color Map 
n  Plane4 Plane 2 Plane 1 Entries” 
0 = = _ none 
1 _ = x 0,1 
a «2 x - 0,2 
3. «O- X X 0,1,2,3 
4 xX i o. 0, 4 
5 » 4 may X 0, 1, 4, 5 
6 xX X - 0,2,4,6 
7 xX X X 0,1, 2,3, 4, 5, 6, 7 


* assuming that all write-protected planes are empty 


Notes 
@ SET WRITING PLANES is instruction number 68. 


@ INQUIRE WRITING PLANES is instruction number 69. 


SET WRITING PLANES 


@ The default n value is 7 (all three planes selected). 


@ SET WRITING PLANES has no effect on plotter view surfaces. 


5-6 SET WRITING MODE - SET WRITING CHARACTERISTICS 
The SET WRITING MODE instruction defines the exact manner in 
which CGL draws output primitives. For detailed information, 
refer to the description of the writing mode in Chapter l. 
CORE Standard 

Not included. 
CORE Graphics Library 

SET WRITING MODE (mode) 

INQUIRE WRITING MODE (mode) 


mode is an integer expression/variable that specifies one of 
the following values: 


0 = TRANSPARENT 5 = OVERLAY NEGATE 
1 = TRANSPARENT NEGATE 6 = REPLACE 

2 = COMPLEMENT 7 = REPLACE NEGATE 
3 = COMPLEMENT NEGATE 8 = ERASE 

4 = OVERLAY (default) 9 = ERASE NEGATE 


Notes 
@ SET WRITING MODE is instruction number 70. 
@ INQUIRE WRITING MODE is instruction number 71. 


e The constant declaration files included with the CGL software 
kit include symbols for all ten writing mode values. 


@® The SET WRITING MODE instruction works differently when used 
with plotter view surfaces (see Appendix B). 


SET GLOBAL ATTRIBUTES - SET GLOBAL ATTRIBUTE LIST 


5.7 SET GLOBAL ATTRIBUTES - SET GLOBAL ATTRIBUTE LIST 


The SET GLOBAL ATTRIBUTES instruction sets the values of the 
entire global output primitive attribute list with a single call. 


CORE Standard 
oET PRIMITIVE ATTRIBUTES. 2.4 primitive-attribute: array 2) 
INQUIRE PRIMITIVE ATTRIBUTES 2 (primitive attribute array 2) 
CORE Graphics Library 
SET GLOBAL ATTRIBUTES (int list, real list) 
INQUIRE GLOBAL ATTRIBUTES (int list, real list) 


int list is a subscripted variable that specifies a 19-element 
integer array as shown below. 


real list is a subscripted variable that specifies an 
eight-element real array as shown below. 


Table 5-l: Integer Attribute List 


Element Attribute Name Default Value 


gga DS a AD SS DS LS SESS AIS DSSS eh SSL TEs PO Sa ST SST TS A TS ATED 


0 writing index 7 (light/white) 
1 background index 0 (dark/black) 
2 writing mode 4 (OVERLAY) 

3 line style style J (SOLID) 

4 line style pattern -1 . 

5 line style mult 2 

6 font 0 (DEC Multinational) 
a character path path ) (horizontal) 
8 character path mode J (string) 

9 character justification x_ just ] (left) 
10 character justification y just 1 (top) 

11 character italic 0 (vertical) 

12 marker symbol symbol i (period) 

13 marker symbol code 183 - 
14 fill mode 0 VOEL) 
15 fill character font 0 
16 fill character char 0 m 
17 fill character width mult if 
18 fill character height mult i! 


(ae cane seen nm ESE SS OS SA SN SA I ET AIO ASS TUT SA STRAT I DD SES SY SOE A SE TE STS LL NAT OO SII G IN, 


z ignored by CGL while default values remain in effect 


SET GLOBAL ATTRIBUTES 


Table 5-2: Real Attribute List 


Element Attribute Name Default Value 
0 linewidth dx 0.0 = 
1 linewidth dy 0.0 + 
2 character size width 12.0 
3 character size height 25.0 
4 character spacing delta x 12.0 
5 character spacing delta _y 0.0 
6 fill entity x 0.0 
7 fill entity y 0.0 
* one physical device coordinate unit 

Notes 


O SET GLOBAL ATTRIBUTES is instruction number 72. 
O INQUIRE GLOBAL ATTRIBUTES is instruction number 73. 


o Some of the SET GLOBAL ATTRIBUTES parameters have no effect 
on, or work differently when used with plotter view surfaces 
(see Appendix B). 


Example 


procedure example; { set up global attribute list 3 
var 
integer array = array [0..18] of integer; 


real _ array = array [0..7] of real; 
const 
integer list = integer array (7, 0, 4, 1, -1, 2, 0, 0, O, 


0 7 4 7 
1g keg Oe Ags L835. Oy “Oy OG da 51)5 
real list = real array (0.0, 0.0, 1 


0, sy 2a s 
L260, 020, 0, 


2 
0. 
begin 

set global attributes (integer list, real list); 
end { example 3}; 


CHAPTER 6 


CURRENT POSITION AND MARKER INSTRUCTIONS 


This chapter describes the instructions that change and report on 
the current position, draw markers, and control marker attribute 
values. 


6.1 CURRENT POSITION INSTRUCTIONS 


“Current position instructions change or report on the value of 
the current position; they do not affect the view surface. 


6.1.1 MOVE ABS 2 - Move to Absolute Position 


The MOVE ABS 2 instruction changes the current position to the 
specified world coordinate position. 


CORE Standard 
MOVE ABS 2 (x, y) 
CORE Graphics Library 
MOVE ABS 2 (x, y) 


The parameters are real expressions representing world 
coordinates. 


x specifies the new X (horizontal) value of the current 
position. 


4 specifies the new Y (vertical) value of the current 
position. 


MOVE ABS 2 


Notes 


@ MOVE ABS 2 is instruction number 1. 


6.1.2 MOVE REL 2 - Move Relative to Current Position 


The MOVE REL 2 instruction changes the current position according 
to the specifed offsets (delta values). 


CORE Standard 
MOVE REL 2 (dx, dy) 
CORE Graphics Library 
MOVE_REL 2 (delta x, delta_y) 


The parameters are real expressions representing world 
coordinates. 


delta x specifies a change in the xX (horizontal) current 
position. 


delta_y specifies a change in the Y (vertical ) Current 
position. 


Notes 


Oo MOVE REL 2 is instruction number 2. 


6.1.3 INQUIRE CURRENT POSITION 2 - Get Current Position 


The INQUIRE CURRENT POSITION 2 instruction returns the current 
world coordinate position. 


CORE Standard 
INQUIRE CURRENT POSITION 2 (x, y) 
CORE Graphics Library 
INQUIRE CURRENT POSITION 2 (x, y) 
The parameters are real variables representing world coordinates. 


x receives the value of the xX (horizontal) current 
position. 


Notes 


INQUIRE CURRENT POSITION 2 


receives the value of the Y (vertical) current 
position. 


@ INQUIRE CURRENT POSITION 2 is instruction number 3. 


6.1.4 


SET CURSOR - Specify Cursor Characteristics 


The SET CURSOR instruction controls the appearance of the cursor, 
the visual representation of the current position. 


CORE Standard 


Not included. 


CORE Graphics Library 


SET CURSOR (font, char, width, height, dx, dy) 


INQUIRE CURSOR (font, char, width, height, dx, dy) 


font 


char 


dy 


Notes 


is an integer expression/variable in the range 0 to 3 
that specifies one of the four available fonts. 


is an integer expression/variable in the range 32 to 
126 or 160 to 255 that specifies the decimal equivalent 
of the character. 


is an integer expression/variable that specifies a 
multiplier on the width of the character. 


is an integer expression/variable that specifies a 
multiplier on the height of the character. 


is a real expression/variable in the range 0 to 1 that 
specifies the horizontal offset from the upper-left 
corner of the cursor character to the current position. 


is a real expression/variable in the range 0 to 1 that 
specifies the vertical offset from the upper-left 
corner of the cursor character to the current position. 


@ SET CURSOR is instruction number 100. 


SET CURSOR 


@® INQUIRE CURSOR is instruction number 101. 


@® Font -l is a special set of pre-defined cursors: 


Char Cursor 
-] none 
0 default, crosshairs 
1 crosshairs 
2 full screen crosshairs 
3 block 


@® Redefining the character currently being used as the c 
does not change the cursor. Only SET CURSOR specifies 
Cursor. 

@ SET CURSOR has no effect on plotter view surfaces. 

Errors 


401. One or more of the attribute values is invalid. 


910. Invalid when in begin/end define character. 


6.2 MARKER PRIMITIVE INSTRUCTIONS 


Marker instructions draw markers or series of markers. 


6.2.1 MARKER ABS 2 - Draw Marker at Absolute Position 


The MARKER ABS 2 instruction changes the current position to 
specified world coordinate position and draws a marker at 
position. 


CORE Standard 
MARKER ABS 2 (x, y) 
CORE Graphics Library 
MARKER ABS 2 (x, y) 


The parameters are real expressions representing 
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coordinates. 


X specifies the X (horizontal) position at which to draw 
a marker. 


y specifies the Y (vertical) position at which to draw a 
marker. 


Notes 


@ MARKER ABS 2 is instruction number 33. 


6.2.2 MARKER REL 2 - Draw Marker Relative to Current Position 


The MARKER REL 2 instruction changes’ the current position 
according to the specifed offsets (delta values) and draws a 
marker at the new current position. 


CORE Standard 
MARKER REL 2 (dx, dy) 
CORE Graphics Library 
MARKER REL 2 (delta_x, delta_y) 


The parameters are real expressions representing world 
coordinates. 


delta x specifies the X (horizontal) offset at which to draw a 
marker. 


delta y specifies the Y (vertical) offset at which to draw a 
marker. 


Notes 


@ MARKER REL 2 is instruction number 34. 


6.2.3 POLYMARKER ABS 2 - Draw Markers at Absolute Positions 


The POLYMARKER ABS 2 instruction is_= an extension of the 
MARKER ABS 2 instruction; it draws a series of markers. CGL 
changes the current position to each of a list of world 
coordinate positions and draws a marker at each position. 


POLYMARKER ABS 2 


CORE Standard 

POLYMARKER ABS 2 (x array, y array, n) 
CORE Graphics Library 

POLYMARKER ABS 2 (x _ array, y array, n) 


X array is a subscripted real variable that specifies a list of 
X world coordinate positions at which to draw a marker. 


y_array is a subscripted real variable that specifies a list of 
Y world coordinate positions at which to draw a marker. 


n is an integer expression that specifies the number of 
elements in each array. 


Notes 
@ POLYMARKER ABS 2 is instruction number 35. 


@ When the POLYMARKER ABS 2 instruction has’ finished, the 
current position is the last specified position. 


Errors 


2. N is less than or equal to zero. 


6.2.4 POLYMARKER REL 2 - Draw Markers at Relative Positions 


The POLYMARKER REL 2 instruction is an extension of the 
MARKER REL 2 instruction; it draws a_éeseries of markers. CGL 
changes the current position to each of a list of world 
coordinate offsets and draws a marker at each new position. 
CORE Standard 

POLYMARKER REL 2 (dx array, dy array, n) 
CORE Graphics Library 

POLYMARKER REL 2 (dx_array, dy array, n) 


dx array is a subscripted real variable that specifies a list of 
X world coordinate offsets at which to draw a marker. 


dy array is a subscripted real variable that specifies a list of 
Y world coordinate offsets at which to draw a marker. 


POLYMARKER_ REL 2 
n is an integer expression that specifies the number of 
elements in each array. 
Notes 
@ POLYMARKER REL 2 is instruction number 36. 


@ When the POLYMARKER REL 2 instruction has finished, the 
current position is the last specified position. 


Errors 


2. N is less than or equal to zero. 


6.3 MARKER ATTRIBUTE INSTRUCTIONS 


This instruction allows you to specify the symbol to be used in 
subsequent marker instructions. 


6.3.1 SET MARKER SYMBOL - Select New Marker Symbol 


The SET MARKER SYMBOL instruction specifies one of five symbols 
defined by the CORE Standard or another character as the current 
marker symbol. 


CORE Standard 
SET MARKER SYMBOL (symbol) 
INQUIRE MARKER SYMBOL (symbol) 
CORE Graphics Library 
SET MARKER SYMBOL (symbol, code) 
INQUIRE MARKER SYMBOL (symbol, code) 


symbol is an integer expression/variable that specifies one of 
the following five standard symbols (code is ignored) 
Or another character (symbol > 5 or symbol < 1). 


(period) (default) 
(plus sign) 
(asterisk) 

(upper case O) 
(upper case X) 


Ol &® WN Fe 
bouuw Wet 
xO rte 


SET MARKER SYMBOL 


is an integer expression/variable that specifies the 


— decimal code of a character from the current font. 
Notes 

@ SET MARKER SYMBOL is instruction number 37. 

@ INQUIRE MARKER SYMBOL is instruction number 38. 

@ A symbol value that is greater than five or less than one 
indicates that the "code" parameter specifies the desired 
character. 

@® The default symbol is the period (value = 1). 

@ SET MARKER SYMBOL works differently when used with plotter 


view surfaces (see Appendix B). 


CHAPTER 7 


LINE INSTRUCTIONS 


7.1 $STRAIGHT LINE PRIMITIVE INSTRUCTIONS 


Line instructions draw straight lines or series of connected 
straight lines. 


7.1.1 LINE _ABS 2 - Draw Line to Absolute Position 


The LINE ABS 2 instruction changes the current position to. the 
specified world coordinate position and draws a line connecting 
the old current position and the new current position. 


CORE Standard 
LINE ABS 2 (x, y) 
CORE Graphics Library 
LINE ABS 2 (x, y) 


The parameters are real expressions representing world 
coordinates. 


x specifies an X (horizontal) position to which to draw a 
line. 

y specifies a Y (vertical) position to which to draw a 
line. 

Notes 


@ LINE ABS 2 is instruction number 4. 


7.1.2 LINE REL 2 - Draw Line to Relative Position 


The LINE REL 2 instruction changes the current position according 
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LINE REL 2 


to the specifed world coordinate offsets and draws a line 
connecting the old current position and the new current position. 


CORE Standard 
LINE REL 2 (dx, dy) 
CORE Graphics Library 
LINE REL 2 (delta_x, delta _y) 


The parameters are real expressions representing world 
coordinates. 


delta x specifies an X (horizontal) offset to which to draw a 
line. 


delta y specifies a Y (vertical) offset to which to draw a 
line. 


Notes 


@ LINE REL 2 is instruction number 5. 


72.1.3  POLYLINE ABS 2 - Draw Lines to Absolute Positions 


The POLYLINE ABS 2 instruction is an iterated LINE ABS 2 
instruction. You supply ae list of absolute positions and CGL 
draws a series of connected lines starting at the current 
position and ending at the last position in the list. 


CORE Standard 

POLYLINE ABS 2 (x_array, y array, n) 
CORE Graphics Library 

POLYLINE ABS 2 (x array, y_ array, n) 


X array is a subscripted real variable that specifies a list of 
X world coordinate positions to which to draw a line. 


y_array is a subscripted real variable that specifies a list of 
Y world coordinate positions to which to draw a line. 


n is an integer expression that specifies the number of 
elements in each array. 


POLYLINE ABS 2 


Notes 
@ POLYLINE ABS 2 is instruction number 6. 


@ When the POLYLINE ABS 2 instruction has finished, the current 
position is the end of the last line drawn: x_array(n), 
y_array(n). 


Errors 


2. N is less than or equal to zero. 


7.1.4 POLYLINE REL 2 - Draw Lines to Relative Positions 


The POLYLINE REL 2 instruction is an iterated LINE REL 2 
instruction. You supply a list of relative positions and CGL 
draws a series of connected lines starting at the current 
position and ending at the last position in the list. 
CORE Standard 

POLYLINE REL 2 (dx_array, dy array, n) 
CORE Graphics Library 

POLYLINE REL 2 (dx_array, dy array, n) 


dx array is a subscripted real variable that specifies a list of 
world coordinate offsets to which to draw a line. 


dy array is a subscripted real variable that specifies a list of 
world coordinate offsets to which to draw a line. 


n is an integer expression that specifies the number of 
elements in each array. 


Notes 
@ POLYLINE REL 2 is instruction number 7. 


@ When the POLYLINE REL 2 instruction has finished, the current 
position is the end of the last line drawn. 


Errors 


2. N is less than or equal to zero. 


POLYLINE REL 2 


7.1.5 POLYGON ABS 2 - Draw Polygon by Absolute Positions 


The POLYGON ABS 2 instruction is similar to the POLYLINE ABS 2 
instruction. You supply ae list of absolute positions and CGL 
draws a series of connected lines. The differences are: 


@® cCGL begins drawing at the first position in the specified 
list, rather then the current position. 


@® CGL draws a line from the last position in the list to the 
first position, closing the figure. 


CORE Standard 

POLYGON ABS 2 (x_ array, y array, n) 
CORE Graphics Library 

POLYGON ABS 2 (x_array, y array, n) 


X array is a subscripted real variable that specifies a list of 
X world coordinate positions describing a polygon. 


y_array is a subscripted real variable that specifies a list of 
Y world coordinate positions describing a polygon. 


n is an integer expression that specifies the number of 
elements in each array. 


Notes 
@ POLYGON ABS 2 is instruction number 8. 


e Assuming that arrays are numbered from 0 to on (as _ in 
BASIC-PLUS-2), the instruction (POLYGON ABS 2, x_array, 
y_array, ntl) is equivalent to: 


MOVE ABS 2, x _array(0), y array(0) 
LINE ABS 2, x_array(1l), y_array(1) 
LINE ABS 2, x array(2), y_array(2) 


LINE ABS 2, x_array(n), y array(n) 
LINE ABS 2, x_array(0), y array(0) 


POLYGON ABS 2 
When the POLYGON ABS 2 instruction has finished, the current 
position has the value (x_array(0), y_array(0)). 
Errors 
3. N is less than or equal to two. 


904. Too many points in closed, filled figure. 


7.1.6 POLYGON REL 2 - Draw Polygon by Relative Positions 


The POLYGON REL 2 instruction is similar to the POLYLINE REL 2 
instruction. You supply ae list of relative positions and CGL 
draws a series of connected lines. The differences are: 


e cCGL begins drawing at the first position in the specified 
list, rather then the current position. 


@e CGL draws a line from the last position in the list to the 
first position, closing the figure. 


CORE Standard 

POLYGON REL 2 (dx_array, dy array, n) 
CORE. Graphics Library 

POLYGON REL 2 (dx_array, dy_array, n) 


dx array is a subscripted real variable that specifies a list of 
X world coordinate offsets describing a polygon. 


dy array is a subscripted real variable that specifies a list of 
Y world coordinate offsets describing a polygon. 


n is an integer expression that specifies the number of 
elements in each array. 


Notes 
@ POLYGON REL 2 is instruction number 9. 


e Assuming that arrays are numbered from 0 to on (as _ in 
BASIC-PLUS~2), the instruction (POLYGON REL 2, dx_array, 
dy array, n+l) is equivalent to: 


MOVE REL 2, dx_array(0), dy array(0) 


INQUIRE CURRENT POSITION 2, xl, yl 
LINE REL 2, dx_array(1), dy _array(1) 
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POLYGON REL 2 


LINE REL 2, dx_array(2), dy array(2) 


LINE REL 2, dx_array(n), dy array(n) 
INQUIRE CURRENT POSITION 2, xn, yn 
LINE REL 2, xl - xn, yl - yn 
When the POLYGON REL 2 instruction has finished, the current 
position has the value that was obtained when CGL executed 
(MOVE REL 2, dx_array(0), dy _array(0)). 
Errors 
3. N is less than or equal to two. 


904. Too many points in closed, filled figure. 


7.1.7 RECTANGLE ABS 2 - Draw Rectangle by Absolute Position 


The RECTANGLE ABS 2 instruction draws a series of connected lines 
forming a four-sided, perpendicular, polygon with the current 
position at one corner and a point specified as an absolute 
position in world coordinate space at the opposing corner. It 
does not change the current position. 
CORE Standard 

Not included. 
CORE Graphics Library 

RECTANGLE ABS 2 (x, y) 


The parameters are real expressions representing world 
coordinates. 


x specifies an xX (horizontal) position describing a 
rectangle. 


4 specifies a Y (vertical) position describing a 
rectangle. 


Notes 


@ RECTANGLE ABS 2 is instruction number 10. 


RECTANGLE ABS 2 


Example 


Suppose that the current position is (0,0). The instruction 
(RECTANGLE ABS, 2, 3) is equivalent to: 


LINE ABS 2, 2, 
LINE ABS 2, 2, 
LINE ABS 2, 0, 
LINE ABS 2, 0, 


OWW © 


7.1.8 RECTANGLE REL 2 - Draw Rectangle by Relative Position 


The RECTANGLE REL 2 instruction draws a series of connected lines 
forming a four-sided, perpendicular, polygon with the current 
position at one corner and a point specified as an offset in 
world coordinate space at the opposing corner. It does not 
change the current position. 


CORE Standard 
Not included. 

CORE Graphics Library 
RECTANGLE REL 2 (dx, dy) 


The parameters are real expressions representing world 
coordinates. 


dx specifies an xX (horizontal) offset describing a 
rectangle. 


dy specifies a Y (vertical) offset describing a rectangle. 
Notes 

@ RECTANGLE REL 2 is instruction number ll. 

Example 


Suppose that the current position is (0,0). An instruction 
(RECTANGLE REL, 2, 3) is equivalent to: 


LINE REL 2, 2, 0 
LINE REL 2, 0, 3 
LINE REL 2, -2, 0 
LINE REL 2, 0, -3 


CURVED LINE PRIMITIVE INSTRUCTIONS 


7.2 CURVED LINE PRIMITIVE INSTRUCTIONS 


Arc and curve primitive instructions draw curved lines’ by 
interpolation. 


7.2.1 ARC_ABS 2 - Draw Are Based on Absolute Position 


The ARC ABS 2 instruction draws an arc of a circle whose center 
is at a specified world coordinate position. The arc begins at 
the current position and continues for a specified number of 
degrees. CGL updates the current position to the last point on 
the arc. 


Unlike other output primitives, arcs do not change their shape in 
the viewing transformation. The circle described by the 
ARC_ABS 2 instruction is always a perfect circle, regardless of 
whether the window is the same shape as the viewport. 
CORE Standard 

Not included. 
CORE Graphics Library 

ARC ABS 2 (x, y, angle) 


x is a real expression that specifies the xX _ world 
coordinate of the center of the circle. 


y is a real expression that specifies the Y world 
coordinate of the center of the circle. 


angle is an integer expression that specifies the angle (in 
degrees) of the arc. 


Notes 
@® ARC_ABS 2 is instruction number 39. 


@ Positive angles cause the arc to be drawn counterclockwise. 
Negative angles cause the arc to be drawn clockwise. 


@ The angle can be any number up to machine infinity. CGL uses 
the specified angle value modulo 360. 


@® Because of rounding errors, a series of consecutive arcs does 
not necessarily describe a circle. For example, six 
consecutive 60-degree arcs do not join at the starting point. 
If you want an accurate circle, you must specify a 360-degree 
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arC.e 


@ You can compute the radius of the circle with the Pythagorean 
Theorem. For example, in PASCAL: 


arc_abs 2 (xl, yl, n); 
inquire current_position_2 (x2, y2); 
radius := sqrt(sqr(abs(xl - x2)) + sqr(abs(yl - y2))); 


Example 


Figure 7-1 shows what the window would look like if you executed 
the following instructions: 


SET WINDOW (0.0, 9.0, 0.0, 14.0) 
MOVE ABS 2 (8.0, 9.0) 


ARC ABS 2 (4.0, 5.0, 90) 


WINDOW 


(4.5) 


® 
CENTER 


Figure 7-1: An Arc in World Coordinate Space 
7.2.2 ARC_REL 2 - Draw Arc Based on Relative Position 


The ARC_REL 2 instruction draws an arc of a circle whose center 
is a specified offset from the current position. The arc begins 
at the current position and continues for a specified number of 
degrees. CGL updates the current position to the last point on 
the arc. 


Unlike other output primitives, arcs do not change their shape in 


the viewing transformation. The circle described by the 
ARC_REL 2 instruction is always a perfect circle, regardless of 


T= 


ARC_REL 2 


whether the window is the same shape as the viewport. 


CORE Standard 


Not included. 


CORE Graphics Library 


ARC_REL 2 (x, y, angle) 


x is a real expression that specifies the center of the 
circle as an X offset from the current position. 

V is a real expression that specifies the center of the 
circle as a Y offset from the current position. 

angle is an integer expression that specifies the angle (in 
degrees) of the arc. 

Notes 

@ ARC REL 2 is instruction number 40. 

@® Positive angles cause the arc to be drawn counterclockwise. 
Negative angles cause the arc to be drawn clockwise. 

e The angle can be any number up to machine infinity. CGL uses 
the specified angle modulo 360. 

e Because of rounding errors, a series of consecutive arcs does 
not necessarily describe a circle. For example, six 
consecutive 60-degree arcs do not join at the starting point. 
If you want an accurate circle, you must specify a 360-degree 
arc. 

@ You can compute the radius of the circle with the Pythagorean 
Theorem. For example, in PASCAL: 

arc rel 2 (xl, yl, n); 
radius = sqrt(sqr(abs(xl)) + sqr(abs(yl))); 
Example 


Figure 7-1 shows what the window would look like if you executed 
the following instructions: 


SET WINDOW (0.0, 9.0, 0.0, 14.0) 
MOVE ABS 2 (8.0, 9.0) 


ARC REL 2 (-4.0, -3.0, 90) 


ARC_REL 2 


7.2.3 CURVE_ABS 2 - Draw Curve by Absolute Positions 


The CURVE ABS 2 instruction draws a smooth curve connecting a 
list of world coordinate positions. You can specify an open or 
closed curve. | 
CGL begins Drawing at the first position in the specified list 
and continues to the last position. If you specify an open 
curve, CGL stops drawing there. If you specify a closed curve, 
CGL continues’ the curve back to the first position in the list. 
In either case, CGL updates the current position to the end of 
the curve. 


CORE Standard 
Not included. 
CORE Graphics Library 
CURVE ABS 2 (x_array, y_ array, n, type) 


x array is a subscripted real variable that specifies a list of 
X world coordinate positions. 


y_array is a subscripted real variable that specifies a list of 
Y world coordinate positions. 


n is an integer expression that specifies the number of 
elements in each array. 


type is an integer expression that specifies one of the 
following values: 


O = open curve anything else = closed curve 
Notes 
@ CURVE ABS 2 is instruction number 41. 


e If you are drawing a closed curve with polygon fill ON, the 
maximum number of points that can be on the curve is 28. 


Errors 
3. N is less than or equal to two. 


904. Too many points in closed, filled figure. 


CURVE _ABS 2 


7.2.4 CURVE_REL 2 - Draw Curve by Relative Positions 
The CURVE REL 2 instruction draws a smooth curve connecting a 
list of offsets in world coordinate space. You can specify an 
open or closed curve. 
CGL begins drawing at the first offset in the supplied list and 
continues to the last offset. If you specify an open curve, CGL 
stops drawing there. If you specify a closed curve, CGL 
continues the curve back to the position described by the first 
offset in the list. In either case, CGL updates the current 
position to the end of the curve. 
CORE Standard 

Not included. 
CORE Graphics Library 

CURVE REL 2 (x_array, y array, n, type) 


X_array is a subscripted real variable that specifies a set of 
X offsets in world coordinate space. 


y_array is a subscripted real variable that specifies a set of 
Y offsets in world coordinate space. 


n is an integer expression that specifies the number of 
elements in each array. 


type is an integer expression that specifies one of the 
following values: 


O = open curve anything else = closed curve 
Notes 
@ CURVE REL 2 is instruction number 42. 
Errors 
3. N is less than or equal to two. 


904. Too many points in closed, filled figure. 
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7.3 LINE ATTRIBUTE INSTRUCTIONS 


Line attribute instructions affect the appearance of the images 
produced by both straight and curved line primitive instructions. 


7.3.1 SET_LINESTYLE - Set Line Drawing Style 
The SET _LINESTYLE instruction sets the style of lines drawn by 
line drawing instructions. You specify one of the nine standard 
line styles or a user-defined line style. Figure 7-2 shows’ the 
nine standard line styles. 
CORE Standard 

SET LINESTYLE (linestyle) 

INQUIRE LINESTYLE (linestyle) 
CORE Graphics Library 

SET LINESTYLE (style, pattern, mult) 

INQUIRE LINESTYLE (style, pattern, mult) 


The parameters are integer expressions/variables. 


style specifies one of nine standard line styles (pattern and 
mult are ignored) or a user-defined style. 


pattern specifies a 16-bit user-defined pattern where the set 
bits are "on" and the clear bits are "off". 


mult specifies how many times to draw each bit in the 
| pattern. 


Notes 
@e SET LINESTYLE is instruction number 12. 
@ INQUIRE LINESTYLE is instruction number 13. 


e Any style value less than one or greater than nine indicates 
a user-defined style. 


@e The default line style is 1 (SOLID). 


SET LINESTYLE 
@® The multiplier operates on individual bits. For example, 

suppose the pattern is: 
1010101010101010 

A multiplier of two would produce: 
11001100110011001100110011001100 

A multiplier of three would produce: 
111000111000111000111000111000111000111000111000 


@ SET _LINESTYLE works differently when used with plotter view 
surfaces (see Appendix B). 


STYLE BIT PATTERN 

NO. NAME 15 14 13 12 11 109 8 765 43 21 «0 
1 SOEID 3 t4e saan cee sees 

2 DASHED Htie oo ces ial Bes 

3 DOT DASHED 235 ss tbacss = as a 
MOTO anasa arcane EEREEEE & 


5 DOT__DOT__DASHED...... = a ae = a 
6 DOTTED__WIDE__SPACING _ ES =e 

7 DASHED_SHORT_LINES ZZ Zz 
as 


8 DASHED__LONG_LINES... 


9 DOT_.DASHED_SHORT_LINES =e 


Figure 7-2: The Standard Line Styles 
7.3.2 SET LINEWIDTH - Set Line Drawing Width 
The SET LINEWIDTH instruction specifies the width of line 


primitives in world coordinate units. You can set the X and Y 
line widths independently. 


SET LINEWIDTH 


CORE Standard 
SET LINEWIDTH (linewidth) 
INQUIRE LINEWIDTH (linewidth) 
CORE Graphics Library 
SET LINEWIDTH (dx, dy) 
INQUIRE LINEWIDTH (dx, dy) 


The parameters are real expressions/variables representing world 
coordinate units. 


dx specifies the X (horizontal) width of lines created by 
line primitive instructions. 


dy specifies the Y (vertical) width of lines created by 
line primitive instructions. 


Notes 
@ SET LINEWIDTH is instruction number 14. 
@ INQUIRE LINEWIDTH is instruction number 15. 
e The default line width is (dx = 0, dy = 0). 


@e A line width parameter less than or equal to zero sets’ the 
line width to one physical device coordinate unit. 


@e The drawing speed is noticably slower if the line width is 
wider than one physical device coordinate unit. 


@® Complement mode does not work correctly if the line width is 
wider than one physical device coordinate unit. 


@ SET LINEWIDTH works differently when used with plotter view 
surfaces (see Appendix B). 


NOTE 


The following feature 1S supported only for 
compatibility with earlier versions of CGL. 


It is recommended that you use 
SET LINEWIDTH ORIENTATION to control line 
positioning. Once executed, it always 


overrides the following. 


SET LINEWIDTH 


® You can use the signs of the line width parameters to control 
a line's exact starting position relative to the drawing 
position and the origin of the window. CGL draws the end of 
a line as a rectangle with dimensions determined by the line 
width parameters. You can specify which of the four corners 
of the rectangle is to appear at the current position. 
Assuming the default origin (top-left): 


dx dy corner 

+ + lower left 
a + lower right 
+ - upper left 


- upper right 


7.3.3 SET LINEWIDTH ORIENTATION - Set Line Endpoint Offset 


The SET LINEWIDTH ORIENTATION instruction specifies the offset 
From the end of a line primitive to the actual drawing position 
specified in the line primitive instruction. CGL draws the end 
of a line as a rectangle with dimensions determined by the 
current vertical and horizontal line width. (This can be clearly 
seen in Figure 7-3.) You can specify X and Y offsets from the 
bottom-left corner of that rectangle to the actual drawing 
position. 


CORE Standard 
Not included. 

CORE Graphics Library 
SET LINEWIDTH ORIENTATION (dx, dy) 
INQUIRE LINEWIDTH ORIENTATION (dx, dy) 


The parameters are real expressions/variables in the range zero 
to one. 


dx specifies the X (horizontal) offset from the upper-left 
corner of the end-point rectangle to the current 
position. 


dy specifies the Y (vertical) offset from the upper-left 
corner of the end-point rectangle to the current 
position. 


SET LINEWIDTH ORIENTATION 


Figure 7-3: Line Width Orientations: Bottom-left and Centered 
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SET FILL ENTITY 


@ If the fill mode is 2, the Y value (a point on the _ vertical 
axis) describes a horizontal line. 


e If the fill mode is 3, the X and Y values describe a point. 
e The fill entity does not have to be within the window. 
@® If polygon fill is enabled, the fill coordinates are not 


actually used when filling but are stored for a future change 
of fill mode. 


7.3.6 SET FILL CHAR - Specify Character for Fill 
The SET FILL CHAR specifies the character used for area fill. 
CORE Standard 
Not included. 
CORE Graphics Library 
SET FILL CHAR (font, char, width mult, height mult) 
INQUIRE FILL CHAR (font, char, width mult, height mult) 
The parameters are integer expressions/variables. 


font specifies the number of the font containing the fill 
character. | 


char specifies the numeric code of the character. 


width mult specifies a multiplier on the standard character 
width. 


height mult specifies a multiplier on the standard character 
height. 


Notes 
@ SET FILL CHAR is instruction number 78. 
@ INQUIRE FILL CHAR is instruction number 79. 
e The default fill character is a special case; in fact it's 


not a character at all but a vertically-oriented version of 
the current line style. 


SET FILL CHAR 
@ SET FILL CHAR works differently when used with plotter view 
surfaces (see Appendix B). 
Errors 


401. One or more of the attribute values is invalid. 


CHAPTER 8 


TEXT INSTRUCTIONS 


This chapter describes text primitive and attribute instructions. 


8.1 TEXT PRIMITIVE INSTRUCTIONS 
8.1.1 TEXT -—- Draw Line of Text 


The TEXT instruction draws a line of text. Unlike most other 
Output primitives, text does not change the current position. 


CORE Standard 
TEXT (character_string) 
CORE Graphics Library 
TEXT (string, length) 
string is a string expression. 


length is an integer expression representing the number of 
characters in the string expression. 


Notes 
@e® TEXT is instruction number 16. 


@ In PASCAL, "TEXT" is a predeclared identifier, thus the name 
of this instruction is "TXT". 


Errors 


8. TEXT error, N < 0 or extent > 32767. 


TEXT 


208. The string contains one or more undefined characters. 


8.1.2 INQUIRE TEXT EXTENT 2 - Report Position at End of String 
The INQUIRE TEXT EXTENT 2 instruction reports the amount of world 
coordinate space that would be used to draw a string of the 
indicated length, unjustified, beginning at the current position. 
The current text attribute settings are used to compute the 
string extent vector. Nothing is drawn or changed. 
CORE Standard 

INQUIRE TEXT EXTENT 2 (character_string, surface name, dx, dy) 
CORE Graphics Library 

INQUIRE TEXT EXTENT 2 (length, delta_x, delta_y) 


length is an integer expression representing the number of 
characters in the string. 


delta_x receives the X extent in world coordinate units. 
delta_y receives the Y extent in world coordinate units. 
Notes 


@ INQUIRE TEXT EXTENT 2 is instruction number 17. 


8.1.3 LOAD FONT - Load User-defined Font 
The LOAD FONT instruction loads characters into the currently 
selected font from a named region in memory. The format of this 
region is described in the PRO/GIDIS Manual (order no. 
AA-Y660A-TK). 
CORE Standard 

Not included. 
CORE Graphics Library 

LOAD FONT (name, length) 


name is a string expression. 
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LOAD FONT 


th is a an integer value or expression that specifies the 
length of the name string. 

Ss 

LOAD FONT is instruction number 112. 


The name must correspond to the installed region name_ and 
should only contain characters A through Z (upper or lower 
case), and 0 through 9. 


The name length must be greater than zero and less than or 
equal to six. 


You must call SET FONT SIZE before using this instruction in 
order to pass the extent and size information to CGL (even 
though this information forms part of the file header). 


If a font could not be loaded, font 0 is loaded by default. 


Characters cannot be defined for the plotter using this 
instruction. Use begin/fend define character. 


rs 

. Font O cannot be redefined. 

- One or more of the attribute values is invalid. 
- Invalid when in begin/fend define character. 


- Font could not be loaded. 


4 LOAD CHARACTER - Load User-defined Character 


LOAD CHARACTER instruction loads a character into the current 
r-defined) font. 


Standard 
Not included. 
Graphics Library 
LOAD CHARACTER (code, matrix) 
is an integer expression that specifies a DEC 


Multinational Character Set decimal code. The valid 
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LOAD CHARACTER 


codes range from 32 to 126 (GL less the delete 
character) and from 161 to 255 (GR). You cannot load 
characters that correspond to CO, the delete character, 
or Cis 


matrix is an integer array variable that specifies the 
physical device coordinate unit pattern of the 
character. 

Notes 


@ LOAD CHARACTER is instruction number 32. 


@ You must execute the SET FONT SIZE instruction before using 
the LOAD CHARACTER instruction. 


@e The character code value must be less than or equal to the 
extent specified in the SET FONT SIZE instruction. 


@e The number of elements in the matrix value must correspond to 
the y size value specified in the SET_FONT SIZE instruction. 


e If the x_size specified in the SET FONT SIZE instruction is 
less than 16, CGL uses’ the high-order bits in each array 
element. 

@e If the y size specified in the SET FONT SIZE instruction is 
less than the number of elements in the array, CGL uses the 
lower-numbered array elements. 

@ You cannot define characters on the plotter view surface 
using this instruction. Use the begin/end define character 
sequence. 

Errors 
9. Font O cannot be redefined. 


401. One or more of the attribute values is invalid. 


910. Invalid when in begin/end define character. 


8.1.5 BEGIN DEFINE CHARACTER 


This instruction provides an alternate way of loading a character 
into the current (user defined) font. Instructions between the 
BEGIN DEFINE CHARACTER and the END DEFINE CHARACTER instructions 
are used to describe the character. The world coordinates of 
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BEGIN DEFINE CHARACTER 


output primitives and attribute sizes are mapped to the character 
dimensions specified in SET FONT SIZE. 


CORE Standard 
Not included. 
CORE Graphics Library 
BEGIN DEFINE CHARACTER (code) 
code is an integer expression that specifies a DEC 
Multinational Character Set decimal code. The valid 
codes range from 32 to 126 (GL less the delete 
character) and from 160 to 255 (GR). You cannot load 


characters that correspond to CO, the delete character, 
or Cl, 


Notes 
@ BEGIN DEFINE CHARACTER is instruction number 109. 


@ You must execute the SET FONT SIZE instruction before using 
this instruction. 


@e The character code value must be less than or equal to. the 
extent specified in the SET FONT SIZE instruction. 


e Use this instruction to define characters to be used on the 
plotter view surface. 


@e Some instructions are invalid within BEGIN and END define 
character. Examples are LOAD CHARACTER, SET CURSOR and 
SELECT VIEW SURFACE. 

Errors 
9. Font O cannot be redefined. 


401. One or more of the attribute values is invalid. 


910. Invalid when in begin/end define character. 


8.1.6 END DEFINE CHARACTER 


This instruction terminates the definition of a character. 


END DEFINE CHARACTER 


CORE Standard 
Not included. 
CORE Graphics Library 


END DEFINE CHARACTER 
Notes 


@ END DEFINE CHARACTER is instruction number 110. 
Errors 


910. Invalid when in begin/end define character. 


8.2 TEXT ATTRIBUTE INSTRUCTIONS 
8.2.1 SET CHARSIZE - Set Character Size 
The SET_CHARSIZE instruction sets the size, in world coordinate 
units, of the characters drawn by subsequent TEXT instructions. 
You can set the X and Y sizes independently. (See the detailed 
discussion of character size in Chapter 1.) 
CORE Standard 

SET CHARSIZE (charwidth, charheight) 

INQUIRE CHARSIZE (charwidth, charheight) 
CORE Graphics Library 

SET CHARSIZE (width, height) 

INQUIRE CHARSIZE (width, height) 


The parameters are real expressions/variables representing world 
coordinate units. 


width specifies the X (horizontal) size of the character. 
height specifies the Y (vertical) size of the character. 
Notes 


SET CHARSIZE 


@ SET CHARSIZE is instruction number 20. 
@ INQUIRE CHARSIZE is instruction number 21. 


@e The default width (12) and height (25) values 


produce 


graphics characters that appear the same size as text mode 


characters using the default window (0, 959, 0, 599). 


CGL's 


default differ from the CORE Standard, which specifies a 


default of 100 lines of 100 characters. 


@ Negative width or height values cause CGL to invert’ the 
characters. In other words, a negative width value produces 


characters that are backwards and a negative height 


produces characters that are upside-down. 


e If the specified character size is smaller than the 


value 


default 


character size, the terminal subsystem draws the characters 
"half size" by uSing every other physical device coordinate 


unit. 


8.2.2 SET CHARSPACE - Set Character Spacing 
The SET _CHARSPACE instruction specifies the displacement 
the starting points of adjacent letters. The displacement 
horizontal, or vertical, or both. 
CORE Standard 

SET CHARSPACE (charspace) 

INQUIRE CHARSPACE (charspace) 
CORE Graphics Library 

SET CHARSPACE (delta_x, delta y) 

INQUIRE _CHARSPACE (delta_x, delta_y) 


The parameters are real expressions/variables representing 
coordinate units. 


delta x specifies the X offset between characters. 


delta y specifies the Y offset between characters. 


between 


can be 


world 


SET _CHARSPACE 


Notes 
@ SET CHARSPACE is instruction number 24. 
e@ INQUIRE _CHARSPACE is instruction number 25. 
e The default delta_x value is 12 (the same as the default 
character width). The default delta y value is zero (no 


vertical offset). 


@® In string mode CGL adjusts the spacing to maintain the 
current character path (see SET CHARPATH). 


8.2.3 SET CHARPATH - Set Text Writing Direction 


The SET CHARPATH instruction has two modes: character and 
string. 


In character mode, SET CHARPATH changes the angle (relative to 
horizontal) in which CGL draws individual characters. The 
character spacing is set to that last explicitly defined by a 
SET CHARSPACE instruction. 
In string mode, SET CHARPATH changes the angle (relative to 
horizontal) in which CGL draws individual characters and adjusts 
the character spacing so that characters are drawn along the base 
line described by the character angle (see Figure 1-13). 
CORE Standard 

SET _CHARPATH (charpath) 

INQUIRE CHARPATH (charpath) 
CORE Graphics Library 

SET CHARPATH (path, mode) 

INQUIRE CHARPATH (path, mode) 


The parameters are integer expressionsS/variables. 


path specifies one of the following values: 


SET _CHARPATH 


mode specifies one of the following values: 
O = character mode 


anything else = string mode (default) 


Notes 
e SET CHARPATH is instruction number 22. 
@ INQUIRE CHARPATH is instruction number 23. 
e The default character path is zero. 
e The angles (counterclockwise from horizontal) that correspond 


to the eight possible paths are: 


path angle 


“IN Om WN FF © 
— 
0O 
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e Characters drawn with a diagonal path appear somewhat italic. 
If necessary, use SET CHARITALIC to compensate. 


SET CHARPATH 


8.2.4 SET CHARJUST - Set Text Justification 
The SET CHARJUST instruction specifies the starting position of 
text primitives relative to the current position. It allows 
horizontal and vertical justification and centering. 
CORE Standard 

SET CHARJUST (charjust) 

INQUIRE CHARJUST (charjust) 
CORE Graphics Library 

SET CHARJUST (x just, y just) 

INQUIRE CHARJUST (x_just, y_ just) 


x just is an integer expression/variable that specifies one of 
the following X (horizontal) text justification values: 


1 = left (default) 
2 = center 
3 = right 
y just is an integer expression/variable that specifies one of 


the following Y (horizontal) text justification values: 


top (default) 
center 


l 
2 
3 bottom 


Notes 
@® SET CHARJUST is instruction number 26. 


@® INQUIRE CHARJUST is instruction number 27. 


8.2.5 SET _CHARITALIC - Set Character Slant 

The SET CHARITALIC instruction changes’ the shape of the 
individual characters ina text string to resemble italic type. 
The characters can have a forward or backward slant. 


CORE Standard 


Not included. 


SET CHARITALIC 


CORE Graphics Library 
SET CHARITALIC (angle) 
INQUIRE CHARITALIC (angle) 


angle is an integer expression/variable that specifies an 
angle (in degrees) of slant. 


Notes 
@ SET _CHARITALIC is instruction number 28. 
@ INQUIRE CHARITALIC is instruction number 29. 


@ A negative angle specifies a forward (right) slant. A 
positive angle specifies backward (left) slant. 


@ You should confine the angle of slant to the range -40 to 40 
for readability. 


@e The default angle is zero (vertical). 


8.2.6 SET FONT - Select Character Font 


The SET FONT instruction selects one of the four character fonts 
available to your program. 


Font 0 contains the DEC Multinational Character Set (GL and GR) 
and cannot be redefined. 


Fonts 1 through 3 are user-defined fonts in which you can _. load 
your own special characters. Refer to the SET FONT SIZE, 
LOAD FONT, LOAD CHARACTER, and BEGIN/END DEFINE CHARACTER 
instructions for more information about user-defined fonts. 
CORE Standard 

SET FONT (font) 

INQUIRE FONT (font) 
CORE Graphics Library 

SET FONT (font) 


INQUIRE FONT (font) 


SET FONT 


font is an integer expression/variable that specifies a 
value in the range O to 3. 


Notes 
@ SET FONT is instruction number 18. 
@ INQUIRE FONT is instruction number 19. 
@e Font 0 (DEC Multinational) is the default. 


@ SET_FONT works differently when used with plotter view 
surfaces (see Appendix B). 


8.2.7 SET FONT SIZE - Define Size of Character Font 


The SET_FONT SIZE instruction IMLeLal lA Zes the current 
user-defined font. It establishes the size of the font by 
specifying the highest DEC Multinational Character Set decimal 
code (the lowest is always 32) and specifies the size of the 
characters in physical device coordinate units. 


When you execute SET FONT SIZE, CGL passes the font size _ and 
subsequent character definitions to all currently selected view 
surfaces. If a view surface is not selected at the time the font 
is defined, it cannot access the font. 
CORE Standard 
Not included. 
CORE Graphics Library 
SET FONT SIZE (extent, x_size, y size) 
INQUIRE FONT SIZE (extent, x size, y size) 
The parameters are integer expressions/variables. 
extent specifies the highest decimal code in the _ font. The 
valid codes for a user-defined font range from 32 to 
126 (GL less the delete character) and from 161 to 255 
(GR). You cannot define characters that correspond to 


CO, the delete character, or Cl. 


x size specifies the width of the font's characters in 
physical device coordinate units (range 1 to 16). 


SET FONT SIZE 
y size specifies the height of the font'’s' characters 
physical device coordinate units (range 1 to 16). 

Notes 

@e SET FONT SIZE is instruction number 30. 

@ INQUIRE FONT SIZE is instruction number 31. 

@e The extent of font 0 is 255. 

@ The x_size of font 0 is 12. 

e The y size of font 0 is 10. 


@e An extent value less than 32 clears the specified 
(except font 0). 


@ SET FONT SIZE works differently when used with plotter 
surfaces (see Appendix B). 


Errors 
9. Font O cannot be redefined. 
401. One or more of the attribute values is invalid. 


902. There is insufficient space for the font. 


in 


font 


view 
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ERROR MESSAGES 


There is no error. 

N is less than or equal to zero. 

N is less than or equal to two. 

TEXT error, N < O or extent > 32767. 

Font 0 cannot be redefined. 

The string contains one or more undefined characters. 
One or more of the attribute values is invalid. 
Invalid coordinate values (minimum >= maximum). 

SET NDC SPACE 2 already invoked since initialization. 
Default NDC space already established. 

A parameter is not in the range 0 to l. 

Neither width nor height has a value of l. 

Neither WIDTH nor HEIGHT can be equal to zero. 

A value outside NDC space is not allowed. 

The CORE system is already initialized. 

View surface already initialized. 


Invalid view surface name. 


708. 
TOAD. 
ya a 
716. 
ids 
743. 


900. 


902. 
903% 
904. 
906. 
907. 
908. 
909. 
910: 
os ae 


912. 


ERROR MESSAGES 


View surface not initialized. 

View surface already selected. 

View surface not selected. 

There has been no END BATCH since the last BEGIN BATCH. 
There has been no corresponding BEGIN BATCH. 

The CORE system has not been initialized. 


Function number out of range or wrong number of 
parameters. 


There is insufficient space for the font. 

I/O error (unassigned LUN, etc.). 

Too many points in closed, filled figure. 
Error on view surface device. 

Invalid when in begin/end batch. 

View surface not ready. 

Function not implemented. 

Invalid when in begin/end define character. 
Error on file playback (file not found, etc). 


Font could not be loaded. 


APPENDIX B 


OPTIONAL VIEW SURFACES 


This appendix provides information specific to view surfaces 
other than the Professional 300 Series video monitor. 


B.l1 HEWLETT-PACKARD HP7470A AND HP7475A GRAPHICS PLOTTERS 


The following sections describe all the differences between the 
way CGL works with a plotter and with the other view surfaces. 
If an instruction is not mentioned, it performs exactly as 
specified in Chapters 3 through 8. 


The plotter pen normally operates at 38 cm/s. CGL can "feed" the 
plotter fast enough to keep it active. 


In some cases, exact support for CGL instructions would require 
too much computation, reduce the quality or speed of output, or 
put unnecesSary stress on the plotter. In those cases, suitable 
"fallbacks" have been devised; the instructions perform somewhat 
differently on the plotter than they do on other view surfaces. 
Other instructions simply have no effect on a plotter view 
surface at all. 


B.1.1 Hardware Requirements 


To connect a plotter to the printer port, you must have a 
standard DEC printer cable (BCC0O5). If you want to connect a 
plotter only, you must have a DEC Male-Male cable (BC22H). If 
you want to connect a printer and a plotter to the same system, 
you must have the "Eavesdrop" cable supplied by Hewlett-Packard 
(07470-60090). 


A printer cable (BCC20) with a male connector at the printer (or 
plotter) end will become available in early 1984. It will 
eliminate the need for the Male-Male cable. 


B-1 


B.l. 


This 
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2 Setting Up the Plotter 


list supplements’ the 


describing how to set the plotter's rocker switches: 


B.l. 


Physical device coordinate space for the HP7470A is 
Physical device coordinate space 
HP7475A is either 1000 x 720 or 1520 x 1000 (paper 
These coordinate spaces have been set so that one 
supplied by 


(paper sizes A and A4). 


A3). 


approximately the line width drawn by the .3 mm pen 


Switches Bl thru B4 control baud rate. 


setting Bl and B4 on (to Bl and B4). 


Hewlett-Packard documentation in 


Specify 4800 baud by 


The next two switches on the 7475 and the next switch on the 


7470 control paper size. See the HP operator's manual for 
details. 
The Y/D switch controls’ cabling. If you are using’ the 


Male-Male cable, set 
"Eavesdrop" cable, set 


The Sl and S2 switches 
both to off (eight-bit 


it to off (D). If you are using the 


it to on (Y). 


control byte size and parity. Set 


bytes and no parity checking). 


3 Physical Device Coordinate Space 


Hewlett-Packard. 


Bel. 


4 Inoperative Instructions 


1000 


sizes 


x 720 
for the 
B and 
unit is 


The following instructions have no effect on plotter output. 


LOAD FONT 

LOAD CHARACTER 
NEW FRAME 
SCROLL 

SCROLL VIEWPORT 


SET COLOR MAP 
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@ SET COLOR_MAP_ENTRY 
@ SET CURSOR 


e SET WRITING PLANES 


B.1.5 SET WRITING INDEX 

Writing index to pen mapping was. chosen to maximize potential 
compatibility with the video color map. SET WRITING INDEX 
specifies pens as follows: 


7470A plotter (two pens) 


left pen 
right pen 
left pen at two-thirds speed 
right pen at two-thirds speed 
left pen 
right pen 
left pen 


SNOB WD FE 
Hout un nh a 


7475A plotter (six pens) 


pen 
pen 
pen 
pen 
pen 
pen 
pen 


at two-thirds speed 


SOV O1 & WN EF 
| | | 
NUH B&W Dh 


A writing index value of zero for either plotter is described in 
the section on SET BACKGROUND INDEX. 


Slowing the pen down to two-thirds full speed thickens’ and 
darkens a line slightly, particularly with a fresh pen. 


If fill is enabled, CGL uses the writing index to determine the 
alignment of the hatch lines in order to maximize differentiation 
between hatch lines drawn in different colors. The difference in 
alignment between writing index n and writing index n+2 is one 
unit. 
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B.1.6 SET BACKGROUND INDEX 


In the context of a plotter-only application, the color of the 
background is is the color of the paper currently being used. 
Thus, there is no reason to change the background index. Other 
view surfaces, however, may require different background indexes. 
Thus, while the background index does not by itself specify a 
pen, changing it will in some circumstances temporarily remap 
pens to minimize the chance that adjacent areas will accidentally 
be the same color. 


@® If the writing index and the background index are both zero, 
CGL draws with the right-hand pen on the HP7470A and pen six 
on the HP7475A. 


e If the writing index is zero and the background index is 
non-zero, CGL draws with the pen specified by the background 
index. 


e If the writing index and the background index are the same 
non-zero number, CGL draws with the specified pen. 


Setting the background index to a value of eight will slow the 


pen down. This is particularly suitable for plotting on 
transparency material. 


B.1.7 SET WRITING MODE 
All writing modes are mapped to OVERLAY or TRANSPARENT. 


TRANSPARENT, TRANSPARENT NEGATE, ERASE, and ERASE NEGATE are 
treated as TRANSPARENT. All other modes are treated as OVERLAY. 


B.1.8 SET MARKER SYMBOL 


If you set the current font to a font whose extent is less’~ than 
or equal to 60, CGL uses a special font consisting of 20 markers: 


O = lower-case x 10 = square 

1 = lower-case o 11 = diamond 

2 = plus sign 12 = filled square 
3 = star 13 = filled diamond 
4 = double dagger 14 = pi 

5 = asterisk 15 = up arrow 

6 = sideways H 16 = down arrow 

7 = triangle 17 = left arrow 

8 = inverted triangle 18 = right arrow 

9 = crosshatch 19 = check mark 
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If you specify a marker symbol character greater than 19, CGL 
uses the number modulo 20. 


B.1.9 SET_LINESTYLE 


The style parameter specifies one of the following, built-in 
plotter line styles. These resemble but do not match the video 
monitor line styles. 


1 = SOLID 

2 = DASHED LONG LINES 

3 = DOT DOT DASHED 

4 = DASHED SHORT LINES 
5 = DOT DOT DASHED 

6 = DOTTED WIDE SPACING 
7 = DASHED 

8 = DOT DASHED 

9 = DASHED 


The size of the line style pattern is set to the value specified 
in the command, with a minimum of about .125 inches. The pattern 
is rotated rather than projected when a diagonal line is drawn. 


B.1.10 SET LINEWIDTH 


Actual line width is only an approximation because of the nature 
of the hardware. A line width of one approximates the .3mm pens 
supplied by Hewlett-Packard. 


B.1.11 SET _FILL_CHAR 


Fill characters are mapped to a special set of hatch patterns. 
There are four specific cases: 


@ SET FILL CHAR (0, 0, ...) 


This specifies horizontal hatch lines about .04 inches’ apart 
that are drawn using the current linestyle. 


@ SET FILL CHAR (n, 32, ..-) 


This specifies solid fill. Parameter "n" is a integer in the 
range one to three representing a user-defined font. 
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@ SET FILL CHAR (0, c, ...) 


This specifies one of the hatch patterns shown in Table B-l. 
Parameter "c" is a positive integer representing a character 
code. CGL uses the character code specified. 


@ SET FILL CHAR (n, c, ...) 


This specifies one of the hatch patterns shown in Table B-l. 
Parameter "n" specifies a user-defined font and "c" specifies 
a character code. CGL maps the character code as described 
under the LOAD CHARACTER instruction in Chapter 8. For 
example, SET FILL CHAR (1,33,...) specifies pattern 1 (plus 
sign) with line separation of six units and solid lines. 


Table B-l: Hatch Patterns 


Line Separation: 6 Units 


Solid Lines Dashes Long Dashes Long/Short Dashes 


‘eazrmueterarrssnsmtepP S  CP S SEOPEOEAOSSEESED  CL EAA CTONIA  eAE LCNEETOTSEE E LT E E SLEDSCEEITTEELEESEEDA LLLLTEST 


1 plus sign 13 plus sign 25 plus sign 37 plus sign 
2 slash 14 slash 26 slash 38 slash 
3 horiz. line 15 horiz. line 27 horiz. line 39 horiz. line 
4 backslash 16 backslash 28 backslash 40 backslash 
5 vert. line 17 vert. line 29 vert. line 41 vert. line 
6 X 18 X 30 X 42 X 
Line Separation: 11 Units 
Solid Lines Dashes Long Dashes Long/Short Dashes 


7 plus sign 19 plus sign 31 plus sign 43 plus sign 

8 slash 20 slash 32 slash 44 slash 

9 horiz. line 21 horiz. line 33 horiz. line 45 horiz. line 
10 backslash 22 backslash 34 backslash 46 backslash 
ll vert. line 23 vert. line 35 vert. line 47 vert. line 
12 X 24 X 36 X 48 X 


Hatch pattern one is the same as pattern seven, and so. forth. 
The difference is that that the lower-numbered patterns have 
hatch lines that are separated by six units and the 
higher-numbered six patterns have lines separated by 11 units. 
The entire hatch pattern set repeats with codes 49 through 96. 
Some of the patterns are shown in Figures B-l and B-2. 
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Figure B-1: 
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Hatch Patterns 1 through 18 
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B.1.12 SET _FONT 


All characters of Font 0 (DEC Multinational) are supported. The 


error character, for control characters and so forth, is the 
question mark. 


Bel.13 SET FONT SIZE 


SET FONT SIZE is ignored except that the font extent specifies 
either DEC Multinational or the marker alphabet as the current 
font. There are three cases: 


Denver 
Loe Angeles New York 
Mi omi “ '* See 
icago 
Woeh. 0. C. 
Jatroit 
Boeton 


Figure B-2: Pie Chart (Drawn with HP7470 Plotter) 
® An extent less than or equal to 60 specifies the marker 
alphabet. 


@® An extent of 128 or 256 specifies DEC Multinational with no 
character index mapping. 
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@ Any other extent specifies DEC Multinational without CO and 


Cl. 


Be1.14 Plotter Errors 


When something does wrong with the plotter, CGL simply returns 
error 906: “Error on view surface device." This list documents 
the behavior of the plotter in unusual conditions so that you can 
find and correct the error. 


NOTE 


This list assumes that the plotter and printer 
are in series via the "Eavesdrop" cable provided 
by Hewlett-Packard. 


If either the plotter or printer is offline (not plugged in 
Or either's power is off) when you start a plotting 
application, INITIALIZE VIEW SURFACE causes an error. 


If the printer port is already attached, 
INITIALIZE VIEW _ SURFACE causes an error. 


If you turn the plotter (or printer) off while the plotter is 
active, data will be lost. 


TO resume uSing the plotter or printer after the plotter has 
been turned off, you must turn both devices off and on. 


If your application does not call TERMINATE VIEW SURFACE 
before exiting, CGL implicity terminates the plotter. 


B.1.15 HP-GL Features Not Accessible from CGL 


Automatic generation of tick marks on the axis of a graph. 


Direct control over the velocity of the pen. However for 
certain primary colors, pen velocity is set to 26 cm/sec. 


The various Report commands. 


Manual setting of Pl and P2. In other words, you cannot 
manually adjust the plotting area from the front panel of the 
plotter. 
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Digitize Point mode. 
Rotating of the X and Y axes on the HP7475A. 
Arcs with other than one segment per 10 degrees of arc. 


Hatching with arbitrary line separation. Separation is 
either an eighth or a sixteenth of an inch, approximately. 


The 
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INCLUDE FILES 


following include files’ can 


LB: [1,5]. 


C.1 BASIC-PLUS-2 


The following include file, CGL.B2S, 


Graphics Library. 


found 


is provided 


(if 


present) in 


with 


Professional 300 CORE Graphics Library V2.0 


declarations for Tool Kit BASIC-PLUS-2 


01-Mar-1984 


This include file is provided for 


is not supported software. 


ECLARE INTEGER CONSTANT 


Instruction names 
! 
MOVE ABS 2 
MOVE REL 2 
INQUIRE CURRENT POSITION 2 
LINE ABS 2 
LINE REL 2 
POLYLINE ABS 2 
POLYLINE REL 2 
POLYGON ABS 2 
POLYGON REL 2 
RECTANGLE ABS 2 


! 
! 
! 
! 
! 
! 
! 
! instructional purposes only. 
! 
! 
D 
! 
! 


It 


the CORE 


MOO OM MH OM SOM HS Mo SMM SI NM MK MKS SI So So KS KS KE 


RECTANGLE REL 2 

SET LINESTYLE 

INQUIRE LINESTYLE 

SET LINEWIDTH 

INQUIRE LINEWIDTH 
TEXT 
INQUIRE TEXT EXTENT 2 
SET FONT 

INQUIRE FONT 

SET CHARSIZE 

INQUIRE CHARSIZE 

SET CHARPATH 

INQUIRE CHARPATH 

SET CHARSPACE 

INQUIRE CHARSPACE 

SET CHARJUST 

INQUIRE CHARJUST 

SET CHARITALIC 
INQUIRE CHARITALIC 
SET FONT SIZE 
INQUIRE FONT SIZE 
LOAD CHARACTER 
MARKER ABS 2 
MARKER REL 2 
POLYMARKER ABS 2 
POLYMARKER REL 2 

SET MARKER SYMBOL 
INQUIRE MARKER SYMBOL 
ARC_ABS 2 

ARC REL 2 

CURVE_ABS 2 

CURVE REL 2 

SET WRITING INDEX 
INQUIRE WRITING INDEX 
SET BACKGROUND _ INDEX 
INQUIRE BACKGROUND INDEX 
SET COLOR _MAP 

INQUIRE COLOR_MAP 
SET COLOR MAP ENTRY 
INQUIRE COLOR MAP ENTRY 
SET WRITING PLANES 
INQUIRE WRITING PLANES 
SET WRITING MODE 
INQUIRE WRITING MODE 
SET GLOBAL ATTRIBUTES 
INQUIRE GLOBAL ATTRIBUTES 
SET FILL MODE 
INQUIRE FILL MODE 

SET FILL ENTITY 
INQUIRE FILL ENTITY 
SET FILL CHAR 
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CGL.B2S 


INQUIRE FILL CHAR 
SET WINDOW 

INQUIRE WINDOW 

SET VIEWPORT 2 

INQUIRE VIEWPORT 2 

SET WINDOW CLIPPING 
INQUIRE WINDOW CLIPPING 
SET ORIGIN 

INQUIRE ORIGIN 

ERASE VIEWPORT 

SCROLL 

INITIALIZE CORE 
TERMINATE CORE 

NEW FRAME 

REPORT MOST RECENT ERROR 
PRINT SCREEN 

CGL WAIT 

BEGIN BATCH 

END BATCH 

SET LINEWIDTH ORIENTATION 
INQUIRE LINEWIDTH ORIENTATION 
SET CURSOR 

INQUIRE CURSOR 

SCROLL VIEWPORT 
INITIALIZE VIEW SURFACE 
TERMINATE VIEW SURFACE 
SELECT VIEW SURFACE 
DESELECT VIEW SURFACE 
SET NDC SPACE 2 
INQUIRE NDC SPACE 2 
BEGIN DEFINE CHARACTER 
END DEFINE CHARACTER 
PLAYBACK FILE 


LOAD FONT 
t 


e 


! Fill modes 
! 

OFF 
VERT_LINE 
HORIZ LINE 
POINT 
POLYGON 

t 


! Character justification modes 
t 

LEFT JUST 

CENTER_JUST 

RIGHT JUST 

TOP JUST 


BOTTOM JUST 
! 
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! Standard line styles & 
! & 
SOLID = 1%, & 
DASHED = 2%, & 
DOT DASHED = 3%, & 
DOTTED = 4%, & 
DOT DOT DASHED = 5%, & 
DOTTED WIDE SPACING = 6%, & 
DASHED SHORT LINES = 7%, & 
DASHED LONG LINES = 8%, & 
DOT DASHED SHORT LINES = 9%, & 
! & 
! Writing modes & 
! & 
TRANS PARENT = 0%, & 
TRANSPARENT NEGATE = 1%, & 
COMPLEMENT = 2%, & 
COMPLEMENT NEGATE = 3%, & 
OVERLAY = 4%, & 
OVERLAY NEGATE = 5%, & 
REPLACE = 6%, & 
REPLACE NEGATE = 7%, & 
ERASE = 8%, & 
ERASE NEGATE = 9% 


C.2 DIBOL 


The following include file, CGL.DBL, is provided with Tool Kit 
DIBOL. 


Professional 300 CORE Graphics Library V2.0 
definitions for Tool Kit DIBOL 


01-Mar-1984 


This include file is provided for instructional 
purposes only. It is not supported software. 
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ECORD 

GMA2 ,D2 ,Ol > Move Absolute 2 

GMR2 ,D2 ,O2 ; Move Relative 2 

GICP2 ,D2 ,03 > Inquire Current Position 2 
GLA2 ,D2 ,04 * Line absolute 2 

GLR2 ,D2 ,05 > Line relative 2 

GPLA2 4O2 ,06 ; Polyline absolute 2 

GPLR2 ,D2 O07 ; Polyline relative 2 


i» 
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Polygon absolute 2 
Polygon relative 2 
Rectangle absolute 2 
Rectangle relative 2 
Set line style 

Inquire line style 

Set line width 

Inquire line width 
TeEXt 

Inquire text extent 2 
Set font 

Inquire font 

Set character size 
Inquire character size 
Set character path 
Inquire character path 
Set character space 
Inquire character space 


Set character justification 
Inquire character justification 


Set character italics 
Inquire character italics 
Set font size 

Inquire font size 

Load character 

Marker absolute 2 
Marker relative 2 
Polymarker absolute 2 
Polymarker relative 2 
Set marker symbol 
Inquire marker symbol 
Arc absolute 2 

Arc relative 2 

Curve absolute 2 

Curve relative 2 

Set writing index 
Inquire writing index 
Set background index 
Inquire background index 
Set color map 

Inquire color map 

Set color map entry 
Inquire color map entry 
Set writing planes 
Inquire writing planes 
Set writing mode 
Inguire writing mode 
Set global attributes 
Inquire global attributes 
Set £i11 mode 

Inquire fill mode 


The following include file, CGL.FTN, is provided with the CORE 


GSFE 
GIFE 
GSFC 
GIFC 
GSW 
GIW 
GSV2 
GIV2 
GSWC 
GIWC 
GSO 
GIO 
GEV 
GS 
GIC 
GTC 
GNF 


GRMRE 


GPS 
GCW 
GBB 
GEB 
GSLO 
GILO 
GSCU 
GICU 
GSV 
GIVS 
GTVS 
GSVS 
GDVS 


GSNS2 
GINS2 


GBDC 
GEDC 
GPF 
GLF 


Graphics Library. 
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we we “6 Se “EOE WE WE we WE 


=e ~e ~G WCE WE WE WE WHE WHE We WH WH WS We WES WH WE Wo WH BW WES We WE WE WES BME WE WS 


Set fill entity 

Inquire fill entity 

Set fill character 
Inquire fill character 
Set window 

Inquire window 

Set viewport 2 

Inquire viewport 2 

Set window clipping 
Inquire window clipping 
Set origin 

Inquire origin 

Erase viewport 

Scroll 

Initialize cgl 
Terminate cgl 

New frame 

Report most recent error 
Print screen 

Cgl wait 

Begin Batch 

End Batch 

Set Linewidth Orientation 
Inquire Linewith Orientation 
Set CUrsor 

Inquire CUrsor 

Scroll Viewport 
Initialize View Surface 
Terminate View Surface 
Select View Surface 
Deselect View Surface 
Set NDC Space 2 

Inquire NDC Space 2 
Begin Define Character 
End Define Character 
Playback File 

Load Font 


Professional 300 CORE Graphics Library V2.0 
definitions for Tool Kit FORTRAN-77 


AAANNA 


01-Mar-1984 


CGL.FTN 


This include file is provided for instructional 
purposes only. 


IMPLICIT INTEGER 


PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 


(GMA2 
(GMR2 
(GICP2 
(GLA2 
(GLR2 
(GPLA2 
(GPLR2 
(GPGA2 
(GPGR2 
(GRA2 
(GRR2 
(GSLS 
(GILS 
(GSLW 
(GILW 
(GT 
(GITE2 
(GSF 
(GIF 
(GSCS 
(GICS 
(GSCP 
(GICP 
(GSCSP 
(GICSP 
(GSCJ 
(GICJ 
(GSCI 
(GICI 
(GSES 
(GIFS 
(GLC 
(GMKA2 
(GMKR2 
(GPMA2 
(GPMR2 
(GSMKS 
(GIMKS 
(GAA2 
(GAR2 
(GCA2 
(GCR2 
(GSWI 
(GIWI 
(GSBI 
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02) 
03) 
04) 
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It is not supported software. 


Move Absolute 2 

Move Relative 2 

Inquire Current Position 2 
Line Absolute 2 

Line Relative 2 
PolyLine Absolute 2 
PolyLine Relative 2 
PolyGon Absolute 2 
PolyGon Relative 2 
Rectangle Absolute 2 
Rectangle Relative 2 
Set Line Style 

Inquire Line Style 

Set Line Width 

Inquire Line Width 

Text 

Inquire Text Extent 2 
Set Font 

Inquire Font 

Set Character Size 
Inquire Character Size 
Set Character Path 
Inquire Character Path 
Set Character SPace 
Inquire Character SPace 
Set Character Justification 
Inquire Character Justification 
Set Character Italics 
Inquire Character Italics 
Set Font Size 

Inquire Font Size 

Load Character 

MarKer Absolute 2 
MarKer Relative 2 
PolyMarker Absolute 2 
PolyMarker Relative 2 
Set MarKer Symbol 
Inquire MarKer Symbol 
Arc Absolute 2 

Arc Relative 2 

Curve Absolute 2 

Curve Relative 2 

Set Writing Index 
Inquire Writing Index 
Set Background Index 


PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 


(GIBI 
(GSCM 
(GICM 


(GSCME 
(GICME 


(GSWP 
(GIWP 
(GSWM 
(GIWM 
(GSGA 
(GIGA 
(GSFM 
(GIFM 
(GSFE 
(GIFE 
(GSFC 
(GIFC 
(GSW 
(GIW 
(GSV2 
(GIV2 
(GSWC 
(GIWC 
(GSO 
(GIO 
(GEV 
(GS 
(CLEC 
eeuve 
(GNF 


(GRMRE 


(GPS 
(GCW 
(GBB 
(GEB 
(GSLO 
(GILO 
(GSCU 
(GICU 
(GSV 
(GIVS 
(GTVS 
(GSVS 
(GDVS 


(GSNS2 
(GINS2 


(GBDC 
(GEDC 
(GPF 
(GLF 
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63) 
64) 
65) 
66 ) 
67) 
68 ) 
69) 
70) 
ede) 
72) 
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Inquire Background Index 
Set Color Map 

Inquire Color Map 

Set Color Map Entry 
Inquire Color Map Entry 
Set Writing Planes 
Inquire Writing Planes 
Set Writing Mode 

Inguire Writing Mode 

Set Global Attributes 
Inquire Global Attributes 
Set Fill Mode 

Inquire Fill Mode 

Set Fill Entity 

Inquire Fill Entity 

Set Fill Character 
Inguire Fill Character 
Set Window 

Inquire Window 

Set Viewport 2 

Inquire Viewport 2 

Set Window Clipping 
Inquire Window Clipping 
Set Origin 

Inquire Origin 

Erase Viewport 

Scroll 

Initialize Cgl 

Terminate Cgl 

New Frame 

Report Most Recent Error 
Print Screen 

Cgl Wait 

Begin Batch 

End Batch 

Set Linewidth Orientation 


Inguire Linewith Orientation 


Set CUrsor 

Inquire CUrsor 

Scroll Viewport 
Initialize View Surface 
Terminate View Surface 
Select View Surface 
Deselect View Surface 
Set NDC Space 2 
Inquire NDC Space 2 
Begin Define Character 
End Define Character 
Playback File 

Load Font 


PASCAL 


C.4 PASCAL 


The following include file, CGLDEFS.PAS, is provided with Tool 
Kit PASCAL. 


(* PASCAL declarations for the CORE Graphics Library V1.7 *) 
CONST 
(* clipping *) 


off = 0; 
on = 1; 


(* curve mode *) 


open curve = 0; 
closed curve = 1; 
(* definitions for V1.0 compatibility *) 


Opened = open curve; 
closed = closed curve; 


(* writing mode *) 


transparent = 0; 
transparent negate = 1; 
complement = 2; 
complement_negate = 3; 
overlay = 4; 

overlay negate = 5; 
replace = 6; 

replace negate = 7; 
erase = 8; 

erase negate = 9; 


(* fill entity *) 


fill off = 0; 
vert line = 1; 
horiz line = 2; 
point = 3; 


polygon = 4; 
(* justification *) 


left just 


= 1; 
center just = 


23 


C=9 


right _ just = 3; 
top just = 1 
bottom just 


= 3; 


CGLDEFS.PAS 


(* character path *) 


char mode = 


0; 
string mode = 


1 


(* marker symbol 


period = 1; 
plus sign = 2; 
asterisk = 3; 
circle = 4; 
cross = 5; 


(* window origin 


bottom left = 
top. left = J; 
top right = 2 
bottom_right 


(* line style *) 


solid = 1; 
dashed = 2; 
dot_dashed = 3; 
dotted = 4; 


dot _ dot dashed = 


dotted wide spacing = 
dashed _ short lines = 7 
dashed long lines 
dot_dashed_short __ 


TYPE 


clipping = 
curve mode = 
writing mode = 
fill mode = 
justification = 

char _path_mode = 
origin code = 

byte = 0..255; 
planes = 0..7; 
RGB value = 0../7 


7) 


a 


3 
6; 


= 8> 


lines = 9; 


off..on; 
open_curve..closed curve; 
transparent..erase negate; 
fill off..point; 
left_just..right_just; 


char mode..string mode; 


bottom _left..bottom_ right; 


color map _ index = 0..7; 


font desig = 
font_extent = 
reals = 


0..3;3 
32.2126; 


(* arbitrary 


C-10 


size *) 


CGLDEFS.PAS 


string = PACKED ARRAY [1..80] OF char; (* arbitrary size *) 
char matrix = ARRAY [0..15] OF unsigned; 

color map = ARRAY [0..23] OF RGB value; 

color map entry = ARRAY [1..3] OF RGB value; 


[EXTERNAL($PCGL)] 
PROCEDURE move _abs 2(VAR x, y: [readonly] real; 
$$$: integer := 1); SEQ]11; 


[EXTERNAL($PCGL) ] 
PROCEDURE move_rel_ 2(VAR dx, dy: [readonly] real; 
$$$: integer := 2); SEQ]11]1; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire current position 2(VAR x, y: real; 
$$$: integer := 3); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE line_abs_ 2(VAR x, y: [readonly] real; 
$$$: integer := 4); SEQI1I1; 


[EXTERNAL($PCGL) ] 
PROCEDURE line _rel 2(VAR dx, dy: [readonly] real; 
$$$; integer := 5); SEQI11; 


[EXTERNAL(S$PCGL) ] 

PROCEDURE polyline abs 2(VAR x, y: [readonly, unsafe] reals; 
VAR n: [readonly] integer; 
$$$: integer := 6); SEQI1]1; 


[EXTERNAL($PCGL) ] 

PROCEDURE polyline rel 2(VAR dx, dy: [readonly, unsafe] reals; 
VAR n: [readonly] integer; 
$$$: integer := 7); SEQ11; 


[EXTERNAL($PCGL) ] 

PROCEDURE polygon abs 2(VAR x, y: [readonly, unsafe] reals; 
VAR n: [readonly] integer; 
$$$: integer := 8); SEOQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE polygon_rel 2(VAR dx, dy: [readonly, unsafe] reals; 
VAR n: [readonly] integer; 


C21 


CGLDEFS.PAS 
$$$: integer := 9); SEQ11; 


[EXTERNAL($PCGL)] 
PROCEDURE rectangle_abs 2(VAR x, y: [readonly] real; 
SSS: integer := 10); SEQl11; 


[EXTERNAL($PCGL)] 
PROCEDURE rectangle rel 2(VAR dx, dy: [readonly] real; 
$$$: integer := 11); SEQI11; 


[EXTERNAL($PCGL)] 

PROCEDURE set _linestyle(VAR style: [readonly] integer; 
VAR pattern: [readonly] unsigned; 
VAR mult: [readonly] integer; 
$$$: integer := 12); SEOQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire linestyle(VAR style: integer; 
VAR pattern: unsigned; 
VAR mult: integer; 
SSS: integer := 13); SEQI11; 


[EXTERNAL(S$PCGL) ] 
PROCEDURE set _linewidth(VAR dx, dy: [readonly] real; 
$$$: integer := 14); SEQI1I1; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire linewidth(VAR dx, dy: real; 
$$$: integer := 15); SEQI11; 


[EXTERNAL($PCGL) ] 

PROCEDURE txt(VAR s: [readonly, unsafe] string; 
VAR len: [readonly] integer; 
$$$: integer := 16); SEQ11; 


[EXTERNAL ($PCGL) ] 

PROCEDURE inquire text_extent 2(VAR len: [readonly] integer; 
VAR dx, dy: real; 
$$$: integer := 17); SEQI11; 


[EXTERNAL($PCGL) ] | 
PROCEDURE set_font(VAR n: [readonly] font_desig; 
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$$$: integer := 18); SEQl11; 


[EXTERNAL(S$PCGL) ] 
PROCEDURE inquire font(VAR n: font desig; 
$$$: integer := 19); SEQ11; 


[EXTERNAL ($PCGL) ] 
PROCEDURE set _charsize(VAR width, height: [readonly] real; 
$$$: integer := 20); SEQI11; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire charsize(VAR width, height: real; 
$$$: integer := 21); SEQl11; 


[EXTERNAL($PCGL) ] 

PROCEDURE set _charpath(VAR a: [readonly] integer; 
VAR m: [readonly] char _path_mode; 
$$$: integer := 22); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire charpath(VAR a: integer; 
VAR m: char path mode; 


SSS: integer := 23); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE set _charspace(VAR dx, dy: [readonly] real; 
$$$: integer := 24); SEQI11; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire charspace(VAR dx, dy: real; 
$$$: integer := 25); SEQI1]1; 


[EXTERNAL($PCGL) ] 
PROCEDURE set _charjust(VAR x_just, y just: [readonly] justification; 
$$$: integer := 26); SEQI11; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire charjust(VAR x_just, y just: justification; 
S$$: integer := 27); SEQI11]; 


[EXTERNAL (S$PCGL) ] 


CGLDEFS.PAS 


PROCEDURE set _charitalic(VAR angle: [readonly] integer; 
S$$: integer := 28); SEQI1I1; 


[EXTERNAL($PCGL)] 
PROCEDURE inquire charitalic(VAR angle: integer; 
$$$: integer := 29); SEQ11]1; 


[EXTERNAL ($PCGL) ] 

PROCEDURE set _font_size(VAR extent: [readonly] font_extent; 
VAR x_size, y_ size: [readonly] integer; 
$$$: integer := 30); SEQI11; 


[EXTERNAL ($PCGL) ] 

PROCEDURE inquire font_size(VAR extent: font extent; 
VAR x_Size, y_ size: integer; 
$$$: integer := 31); SEQI1I1; 


[EXTERNAL($PCGL) ] 

PROCEDURE load_character(VAR ch: [readonly] font_extent; 
VAR matrix: [readonly] char_matrix; 
$$$: integer := 32); SEQI11; 


[EXTERNAL($PCGL) ] 
PROCEDURE marker_abs_ 2(VAR x, y: [readonly] real; 
$$$: integer := 33); SEOQI11; 


[EXTERNAL($PCGL) ] 
PROCEDURE marker rel 2(VAR dx, dy: [readonly] real; 
$$$: integer := 34); SEQ11; 


[EXTERNAL($PCGL)] 

PROCEDURE polymarker abs 2(VAR x, y: [readonly, unsafe] reals; 
VAR n: [readonly] integer; 
$$$: integer := 35); SEQ11; 


[EXTERNAL($PCGL)] 

PROCEDURE polymarker rel 2(VAR dx, dy: [readonly, unsafe] reals; 
VAR n: [readonly] integer; 
$$$: integer := 36); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE set marker symbol(VAR n: [readonly] integer; 
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VAR c: [readonly] char; 
$$$: integer := 37); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire marker_symbol(VAR n: integer; 
VAR c: char; 
$$$: integer := 38); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE arc abs 2(VAR x, y: [readonly] real; 
ss WAR az: [readonly] integer; 
$$$: integer := 39); SEQII1; 


[EXTERNAL($PCGL) ] 

PROCEDURE arc_rel 2(VAR dx, dy: [readonly] real; 
VAR a: [readonly] integer; 
$$$: integer := 40); SEQ11; 


[EXTERNAL($PCGL) ] 

PROCEDURE curve abs 2(VAR x, y: [readonly, unsafe] reals; 
VAR n: [readonly] integer; 
VAR c: [readonly] curve mode; 
$$$: integer := 41); SEQ11]1; 


[EXTERNAL ($PCGL) ] 

PROCEDURE curve rel 2(VAR dx, dy: [readonly, unsafe] reals; 
VAR n: [readonly] integer; 
VAR c: [readonly] curve mode; 
$$$: integer := 42); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE set writing index(VAR n: [readonly] color _map_ index; 
$$$: integer := 60); SEQI1I]1; 


[EXTERNAL ($PCGL) ] 
PROCEDURE inquire writing index(VAR n: color _ map _ index; 
$$$: integer := 61); SEQ11; 


[EXTERNAL ($PCGL) ] 
PROCEDURE set _background_index(VAR n: [readonly] color map_index; 
$$$: integer := 62); SEQI11; 


CGLDEFS.PAS 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire_background_index(VAR n: color _ map index; 
SSS: integer := 63); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE set_color_map(VAR c: [readonly] color map; 
$$$: integer := 64); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire color map(VAR c: color map; 
SSS: integer := 65); SEQI11; 


[EXTERNAL($PCGL) ] 

PROCEDURE set color map entry(VAR entry: [readonly] color_map_ index; 
VAR color: [readonly] color map entry; 
$$$: integer := 66); SEQIl1l; © 


[EXTERNAL($PCGL) ] 

PROCEDURE inquire _ color map _entry(VAR entry: color _ map _ index; 
VAR c: color map entry; 
S$S$: integer := 67); SEQI11; 


[EXTERNAL($PCGL)] 
PROCEDURE set_writing planes(VAR n: [readonly] planes; 
SSS: integer := 68); SEQI11; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire writing planes(VAR n: planes; 
SSS: integer := 69); SEQI1I1; 


[EXTERNAL($PCGL) ] 
PROCEDURE set _ writing mode(VAR n: [readonly] writing mode; 
SSS: integer := 70); SEOQI1I]1; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire writing mode(VAR n: writing mode; 
SSS: integer := 71); SEQl11]1; 


[EXTERNAL($PCGL) ] 
PROCEDURE set _fill_mode(VAR n: [readonly] fill mode; 
$$$: integer := 74); SEQI1I1; 


CGLDEFS.PAS 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire fill mode(VAR n: fill_ mode; 
$$$: integer := 75); SEQ11; 


[EXTERNAL(S$PCGL) ] 
PROCEDURE set _ fill _entity(VAR x, y: [readonly] real; 
$$$: integer := 76); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire fill _entity(VAR x, y: real; 
$$$; integer := 77); SEQ11; 


[EXTERNAL($PCGL) ] 

PROCEDURE set _ fill_char(VAR font: [readonly] integer; 
VAR ch: [readonly] byte; 
VAR width _ mult: [readonly] integer; 
VAR height mult: [readonly] integer; 
$$$: integer := 78); SEQII1; 


[EXTERNAL ($PCGL) ] 

PROCEDURE inquire fill _char(VAR font: integer; 
VAR ch: char; 
VAR width mult: integer; 
VAR height_mult: integer; 
$$$: integer := 79); SEQI11; 


[EXTERNAL($PCGL) ] 
PROCEDURE set _window(VAR xmin, xmax, ymin, ymax: [readonly] real; 
$$$: integer := 80); SEQI11; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire window(VAR xmin, xmax, ymin, ymax: real; 
$$$: integer := 81); SEQ11; 


[EXTERNAL($PCGL) ] 

PROCEDURE set viewport _2(VAR xmin, xmax, 
ymin, ymax: [readonly] real; 
$$$: integer := 82); SEQI11; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire viewport 2(VAR xmin, xmax, ymin, ymax: real; 
$$$: integer := 83); SEQ11; 


CGLDEFS.PAS 


[EXTERNAL($PCGL)] 
PROCEDURE set window clipping(VAR n: [readonly] clipping; 
$$$: integer := 84); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire window clipping(VAR n: clipping; 
$$$: integer := 85); SEQ1I]1; 


[EXTERNAL($PCGL) ] 
PROCEDURE set _origin(VAR n: [readonly] origin_ code; 
$$$: integer := 86); SEQI1I1; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire origin(VAR n: origin_code; 
S$$S: integer := 87); SEQ]11; 


[EXTERNAL ($PCGL) ] 
PROCEDURE erase viewport($$$: integer := 88); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE scroll(VAR dx, dy: [readonly] real; 
$$$: integer := 89); SEQIl11; 


[EXTERNAL(S$PCGL) ] 


PROCEDURE initialize core($$$: integer := 90); SEQI11; 
[EXTERNAL($PCGL) ] 
PROCEDURE terminate_core($$$: integer := 91); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE new_frame($$$: integer := 92); SEQ11; 


[EXTERNAL ($PCGL) ] 
PROCEDURE report _most_recent_error(VAR f, e: integer; 
SSS: integer := 93); SEQI11; 


[EXTERNAL(S$PCGL) ] 

PROCEDURE print screen(VAR xmin, xmax, 
ymin, ymax, xoff, yoff: [readonly] real; 
SSS: integer := 94); SEQI1I]1; 
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[EXTERNAL($PCGL) ] 
PROCEDURE cgl_wait(VAR s: [readonly] real; 
$$$; integer := 95); SEQI1I]1; 


[EXTERNAL($PCGL) ] 
PROCEDURE begin batch($$$: integer := 96); SEQ1I1; 


[EXTERNAL(SPCGL) ] 
PROCEDURE end_batch($$$: integer := 97); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE set_ linewidth _orientation(VAR dx, dy: [readonly] real; 
$$$: integer := 98); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire linewidth orientation(VAR dx, dy: real; 
$$$: integer := 99); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE set _cursor(VAR font: [readonly] font_desig; 
VAR ch: [readonly] font_extent; 
VAR width, height: [readonly] integer; 
VAR dx, dy: [readonly] real; 
S$S: integer := 100); SEQI11; 


[EXTERNAL($PCGL) ] | 
PROCEDURE inquire cursor(VAR font: font desig; 
- VAR ch: font_extent; 
VAR width, height: integer; 
VAR dx, dy: real; 
$$$: integer := 101); SEQ11; 


[EXTERNAL(S$PCGL) ] 
PROCEDURE scroll _viewport(VAR dx, dy: [readonly] real; 
$$$: integer := 102); SEQ11]; 


[EXTERNAL($PCGL) ] 

PROCEDURE initialize _view_surface(VAR name: [readonly,unsafe] string 
VAR length: [readonly] integer; 
$$$: integer := 103); SEQI11; 


[EXTERNAL(S$PCGL) ] 
PROCEDURE terminate view _surface(VAR name: [readonly,unsafe] string; 
VAR length: [readonly] integer; 
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$$$: integer := 104); SEQ11; 


[EXTERNAL ($PCGL) ] 

PROCEDURE select view _surface(VAR name: [readonly, unsafe] string; 
VAR length: [readonly] integer; 
$$$: integer := 105); SEQ11; 


[EXTERNAL($PCGL)] 

PROCEDURE deselect _view_surface(VAR name: [readonly, unsafe] string; 
VAR length: [readonly] integer; 
$$$: integer := 106); SEQ11; 


[EXTERNAL($PCGL) ] 
PROCEDURE set _ndc_ space 2(VAR width, height: [readonly] real; 
$$$: integer := 107); SEQ1]1; 


[EXTERNAL($PCGL) ] 
PROCEDURE inquire ndc_space 2(VAR width, height : real; 
$$$: integer := 108); SEQI1I1; 


[EXTERNAL ($PCGL) ] 
PROCEDURE begin define character(VAR code: [readonly] integer; 
S$S: integer := 109); SEOQ11; 


[EXTERNAL ($PCGL) ] 
PROCEDURE end define character($$$: integer := 110); SEQ11; 


[EXTERNAL($PCGL)] 

PROCEDURE playback file(VAR s: [readonly, unsafe] string; 
VAR len: [readonly] integer; 
$$$: integer := 111); SEQ11; 


[EXTERNAL(S$PCGL)] 
PROCEDURE load_font(VAR s: [readonly, unsafe] string; 
VAR len: [readonly] integer; 
S$$: integer := 112); SEQl11]1; 


APPENDIX D 


EXAMPLE PROGRAMS 


The following example programs are provided for educational 
purposes’) only. They are not supported software and are not 
included with the Tool Kit. 


D.1 COLORMAP.PAS - COLOR MAP EDITOR 
program color map editor; 


i This program is provided for instructional purposes only. } 
i It demonstrates some aspects of the following software tools: 3 


f Tool Kit PASCAL V1.1 3 
{ CORE Graphics Library V1.7 } 
i P/OS User Interface Library } 


i This application graphically demonstrates the function } 

{ of the color map provided with the Professional 300 Series } 
{ Extended Bitmap Option. Please refer to the associated } 

{i help frame for more information. } 


include '1lb:[1,5]cgldefs.pas/nolist' 


type 

status block = array [0..1] of integer; 
var 

xX, Y 7 real 


ttch, status : status_block; 
current RGB 1..3;3 

current map color map; 
current _index ;: color_map_ index; 
current entry : color map entry; 
done : boolean; — 

RGB_ char : char; 
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const 
black = color map entry (0,0,0); 
white = color map entry (7,7,6); 
RGB_string = 'RGB'; 


procedure getkey (var s : status block); seqll; 
procedure help (var s : status block); seqll; 


procedure draw color map (var current_map : [readonly] color map); 
var 

tz J ; integer; 

X, Y : real; 

current index : color _map_ index; 
current entry : color map entry; 


begin 
new frame; 
begin_batch; 
set writing planes (7); 
set_color_ map (current_map); 
set background index (0); 
set writing _index(7); 
set writing mode (overlay); 
set fill _mode (polygon); 
for i := 0 to 7 do { Draw the color bars } 
begin 
set writing index (i); y := i; 
move abs 2 (0.0, y); 
rectangle rel 2 (3.0, 1.0); 
end { for 3; 
set fill mode (fill off); 
set writing index (7); 
for 1 := 0 to 8 do { Outline the color bars } 


y := 17; move_abs 2 (0.0, y); line abs 2 (3.605. V4 
end { for $; 
for 1 :=-0 to 3 do 


x 3:= 1; move_abs 2 (x, 0.0); line_abs 2 (x, 8.0); 
end { for $; 
set charsize (0.25, 0.5); 
set charjust (center just, center just); 
for i := 1 to 3 do i} Label the map } 
begin 

move_abs 2 (i - 0.5, -0.5); txt (RGB string[il], 1); 
end { for }; 
for i := 0 to 7 do 
begin 

move _ abs 2 (-0.5, i+ 0.5); txt (chr(i + 48), 1); 
end { for $3; 


COLORMAP.PAS - COLOR MAP EDITOR 


set_charspace (0.25,0.0); 
move _abs 2 (1.5,8.5); 
txt ('Press HELP for help.', 20); 
set writing_mode (complement) ; 
for 1 := 0 to 7 do i Draw the RGB values } 
begin 
current index := 1; 
inquire color _map entry (current_index,current_ entry); 
for j := 1 to 3 do 
begin 
move _ abs 2 (j - 0.5, i + 0.5); 
txt (chr(current entry[j] + 48), 1); 
end { for 3; 7 
end { for }; 
end_batch; 
end { draw color map }; 


begin 
initialize core; new_frame; 
set window (-1.0, 4.0, -1.0, 9.0); 
set viewport 2 (0.1875, 0.8125, 0.0, 1.0); 
current map := color map 
(0,0,0, 7,0,0, 0,7,0, 0,0,6, 7,7,0, 7,0,6, 0,7,6, 7,7,6); 
{ black, red, green, blue, yellow, magenta, cyan, black 3} 
draw color map (current _map); 
current_index := 0; current RGB := 1; done := false; 
while not done do 
begin 
x s= current _RGB - 0.5; y := current_index + 0.5; 
move abs 2 (x,y); { position cursor on RGB number } 
getkey (ttch); 
case ttch[0] of 
1 : { Main keyboard key 3 
if (ttch[l1] - 48) in [0, 1, 2, 3, 4, 5, 6, 7] 
then { new RGB value in ttch[l] 
begin 
begin_batch; 
inquire color map _entry (current index, current entry) 
current entry[current_ RGB] := ttch[l] - 48; 
set_color_map entry (current_index, current_entry); 
RGB char := chr(current_entry[current RGB] + 48); 
$} the old RGB number was drawn in complement mode } 
{ so to get rid of it, we draw it’s negative image } 
i} using the same writing index as the color bar } 
set_writing index (current_index); 
set writing mode (erase negate); txt (RGB char, 1); 
{ draw the new RGB number } 
set writing mode (complement); txt (RGB char, 1); 
end_batch; 
end { if 3; 
2 : { Function key } 
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case ttch[l] of 
T;, 8% Ge AO =. 7 RESUME, CANCEL, MAIN SCREEN, EXIT ‘ 
begin 
new frame; terminate core; done := true; 
end; 
15 44 HELPS 
begin { set up for text mode } 
inquire color_map (current_map); 
new frame; 
set color map entry (0,black); 
set color map entry (4,white); 
help (status); 
draw color_map (current_map); 
end; 
27 : { Up arrow 3 
current index : 
28 : { Left arrow 3} 
current RGB := ((current_RGB + 1) mod 3) + 1; 
29 : § Down arrow } 
current index := 
30 : § Right arrow } 
current RGB := (current_RGB mod 3) + li; 
otherwise { ignore it 3; 
end { case 3; 
otherwise { ignore it $3; 
end { case 3}; 
end { while 3}; 
end. 


= (current index - 1) mod 8; 


(current index + 1) mod 8; 


What you see is a graphic representation of the Professional 300 series 
color map (EBO required). It contains the primary colors (red, green, 
and blue), the complementary colors (yellow, magenta, and cyan}, Black, 
and white. The background index is 0 and the writing index is 7. 


You can manipulate the red, green, and blue values in each color map 
entry with the following keys: 


Arrow keys move the cursor around the color map. 
Numeric keys (range 0 to #7) set new RGB values, 


EXIT and MAIN SCREEN return to the Main Menu. 


Press RESUME to continue. 
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10 
Program GEDIT - Graphics Scratchpad Program 


DEC ESD&P SCD 
ZKO1-2/E16 

110 Spit Brook Road 
Nashua, NH 03061 


Instructions: 


The status line displays the current 
function, home position, and mode. 


*** Editing Keys *** 


5 cee nahn alata asain 2 MOVE: Select move mode 

| MOVE|WRIT| ERAS | WRIT: Select write mode 

$———-—+—----+----+ ERAS: Select erase mode 

| NH |HOME! cs | NH: Set new home position 

$————-+—-——--+----+ HOME: Return to home position 
| ~*~ | CS: Clear the screen 

+——---+----+----+ 

| <- |v [| -> | The arrow keys move the cursor. 

+—----+----+----+ 


*** Function Keys *** 


F17 F18 F19 = F20 VECT: Begin vector 
tame fen fe fH = + RECT: Begin rectangle 
| VECT|RECT|CIRC| | CIRC: Begin circle 
+—----+----+----+----+ 


To draw a vector, press <VECT>, move the cursor to the 
other end of the vector and press <DO>. 


To draw a rectangle, press <RECT>, move the cursor to 
the opposing corner of the rectangle and press <DO>. 


To draw a circle, press <CIRC>, move the cursor from the 
center of the circle to any point on the circumference 
and press <DO>. 


*** Other Keys *** 


Exit: Exit graphics sketchpad. 
Cancel: Cancel function (vector, circle, rectangle) 
Fll: Enable/disable keyboard bell 


Cam C9 gam 8 Fem Com gem Gem Gem Com Caw Faw CoD gem OD Faw gan Om Sue CoD Saw Sw Saw fae Few CD O== fem FD fem few few Fee gem 6 fae fem Om fem Gam gam fam 6 fm fam fam Gem em = 


Environmental Definitions 
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100 


START: 
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$include "LB:[1,5]CGL.B2S" ! CGL symbols 


declare real constant 
XINC 
YINC 


2003, 
-.002 


declare integer constant 
CIRCUMF 
, DO KEY 
, CANCEL KEY 
, FIND KEY 
g 
fi 


360 
29 
19 
be 

2 

3 


INSERT KEY 
REMOVE KEY 


! 
declare real 


declare integer 


7 
, WK 
g 
, LOUD 


declare string 
MODE NAME 
, OPTION NAME 


Program Initialization 


positions the cursor at home. 


X movement index 
Y movement index 


Degrees ina circle 
Do key parameter val 
Cancel Key 

Find Key 

Insert key 

Remove key 


Current X position 
Current Y position 
Stored X position 
Stored Y position 
Vector end-point X 
Vector end-point Y 
Home X position 
Home Y position 


Locator Mode Flag 
Locator Action Flag 
Function key param. 
Writing mode 

Bell on error flag 


Current Writing mode 
Current Action mode 


! 
! 
! Sets the default writing mode, home position and 
! 
! 


call CGL by ref ( INITIALIZE CORE ) 


call CGL by ref ( NEW FRAME ) 


call CGL by ref ( SET WINDOW, 0.0, 1.0, 0.0, 0.625) ! 


CURRENT MODE = OVERLAY 


MODE NAME = "Write" 
OPTION NAME = "Plot" 
LOUD = -18 

V = 0% 


Default writing mode 
Mode name 
Default option 


--¢) 


M2 @™ 2 QW RM 


MMM @ M&S —& KM 


QW 9 QM Qr 


square 


Default to beep for err. 
Start non-vector mode 
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CX, CY, HOMEX, HOMEY = 0.5 ! Default home position 
gosub CLEAR_SCREEN { Erase the screen 
gosub STATUS LINE ! Display status 

call CGL by ref ( SET WRITING MODE, CURRENT MODE ) 

call CGL by ref ( SET LINESTYLE, SOLID, 0%, 0%) 


call CGL by ref ( MOVE ABS 2, CX, CY ) ! cursor home 
call CGL by ref ( LINE ABS 2, CX, CY ) ! plot a point 
! 

110 ! 

MAIN: 

! Main plotting loop. This loop calls the movement 
! routine and plots a point. 
gosub COMMANDS ! get movement 
call CGL by ref ( LINE ABS 2, CX, CY ) ! plot a point 
goto MAIN ! loop 
u 

120 ! 


COMMANDS : 


The movement routine 


dim TTCH%(13%) 
call GETKEY by ref (TTCH$%()) 
return unless TTCH%(0%) = 2% ! Ignore non-function keys 
select TTCH%(13%) 
case 8 ! CANCEL 
Vl = -1% if V = 13% 
case 10 ! EXIT 
gosub ENDIT 
case ll ! Fll 
gosub NOISE 
case 15 ! HELP 
gosub HELP IT 
case 16 ! DO 
Vl = 1% IF V = 1% 
case 17 ! Fl7 
gosub VECTOR PLOT unless V = 1% 
case 18 ! F118 
gosub RECTANGLE unless V = 1% 
case 19 ! F119 
gosub CIRCLE unless V = 1% 
case 21 ! FIND 
gosub TRACE MODE 
case 22 ! INSERT HERE 
gosub WRITE MODE 
case 23 ! REMOVE 
gosub ERASE MODE 
case 24 ! SELECT 
gosub SET .HOME unless V = 1% 
case 25 ! PREV SCREEN 
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gosub HOME CURSOR unless V = 1% 
case 26 ! NEXT SCREEN 
gosub CLEAR SCREEN unless V = 1% 


case 27 ! up arrow 
CY = CY + YINC 
case 28 ! left arrow 


CX = CX - XINC 
case 29 ! down arrow 
CY = CY - YINC 
case 30 ! right arrow 
CX = CX + XINC 
case else 
end select 


return 
} 


HOME CURSOR: 


250 


260 


Move current position to Home position 


CX = HOMEX \ CY = HOMEY 
call CGL by ref ( MOVE ABS 2, CX, CY ) 


return 
! 


CLEAR_SCREEN: 


call CGL by ref ( NEW_FRAME ) 
call CGL by ref ( SET WRITING MODE, OVERLAY) 

call CGL by ref ( MOVE ABS 2, 0.0, 0.0) 

call CGL by ref ( RECTANGLE ABS 2, 1.0, 0.625) 
call CGL by ref ( SET WRITING MODE, CURRENT MODE) 
gosub STATUS LINE ! Redisplay status 


return 
i 


ERASE MODE: 


270 


t 
! Set writing mode to erase mode and update status line. 
! If in Locator mode, do not change actual writing mode. 


MODE NAME = "Erase" 

CURRENT MODE = ERASE ! Mode switch 

gosub STATUS LINE ! Display Status Line 
i 


return if V Locator mode return 
call CGL by ref ( SET WRITING MODE, CURRENT MODE) 


return 
1 


WRITE MODE: 


! Set mode to replace mode and update status line. [In 
! Locator mode, don't update real writing mode. 
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MODE NAME = "Write" 
CURRENT MODE = OVERLAY ! Mode switch 
gosub STATUS _ LINE { Display Status Line 
return if V ! Locator mode return 
call CGL by ref ( SET WRITING MODE, CURRENT MODE) 
return 7 7 7” 

280 ! 


TRACE MODE: 


Trace mode - no writing, just movement. Do not 
alter actual writing mode in locator mode. 


MODE NAME = "Move" 

CURRENT MODE = TRANSPARENT ! set mode switch 

gosub STATUS_LINE ! Display Status Line 
t 


return if V Locator mode return 
call CGL by ref ( SET WRITING MODE, CURRENT MODE ) 


return 
290 ! 
NOISE: 
! Toggle beep on bad input 
! 
LOUD = not LOUD ! Toggle beep flag 
return ! go back. 
340 ! 
SET HOME: 
i 
! Home is where the cursor is. Update status line. 
! 
HOMEX = CX \ HOMEY = CY 
gosub STATUS_LINE ! Display Status Line 
return 
350 ! 
HELP IT: 
! 
! Help the user. No help yet. 
I 
return 
i 
700 ! Locator action routines 
! 


VECTOR PLOT: 


Plot a vector from here to located point. 
leave cursor at end of vector. 


eam Sew gaw o—| 


What routine we are 
Display Status Line 
Save current position 
Find the end point 


OPTION NAME = "Vector" 
gosub STATUS_LINE 
PX = CX \ PY = CY 
gosub VECTOR_FIND 


6= mp @aem Com gan 
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goto RESTORE CURSOR if V1 < 0% ! Restore stuff if canceled 
XX = CX \ YY = CY ! Prepare vector 

gosub DRAW VECTOR ! draw vector 
i 
! 


OPTION NAME = "Plot" Default option 
gosub STATUS LINE Display Status Line 
return 

720 ! 

RECTANGLE: 

i 
! Draw a rectangle by finding the oposite corner. 
j 
OPTION NAME = "Rectangle" 
gosub STATUS LINE ! Display Status Line 
PX = CX \ PY = CY 
gosub VECTOR FIND 
goto RESTORE CURSOR if V1 < 0 
call CGL by ref ( MOVE ABS 2, PX, PY ) ! Put corner back 
call CGL by ref ( RECTANGLE ABS 2, CX, CY ) 
goto RESTORE CURSOR ! Put stuff back 

730 ! 

CIRCLE: 

! 
! Draw a circle with center here and radius located 
! Operation can be canceled. 
i 
OPTION NAME = "Circle" : Cinelée option 
gosub STATUS LINE ! Display Status Line 
PX = CX ! Hang on to beginning 
PY = CY ! point for use as center 
gosub VECTOR FIND ~! Locate a radius 
goto RESTORE CURSOR if V1 < 0 ! Quit if canceled 
call CGL by ref ( MOVE ABS 2, CX, CY ) ! Back to center 
call CGL by ref ( ARC ABS 2, PX, PY, CIRCUMF ) 

735 ! 


RESTORE CURSOR: 
! 


! Restore cursor after locator find 
j 


Reset current position 
CY ) 


CX = PX \ CY = PY 
call CGL by ref ( MOVE ABS 2, CX 


v 
OPTION NAME = "Plot" ! Default option 
gosub STATUS LINE ! Display Status Line 
return ! Return 


10000 ! 
! Service routines... 
t 


VECTOR FIND: 


Locator - Find endpoints of vector with one end here. 
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call CGL by ref ( SET_WRITING MODE, COMPLEMENT) 
Ve= 1\ vl = O\ XX = CX \ YY = CY 
gosub DRAW VECTOR 
while vl = 0% 
gosub DRAW _VECTOR 
XX = CX \ YY = CY 
gosub DRAW VECTOR 
gosub COMMANDS 
next 
gosub DRAW VECTOR 
call CGL by ref ( SET_WRITING MODE, CURRENT MODE ) 
V = 0 
return 
! 


DRAW VECTOR: 


10200 


Draw Vector 


This routine plots a vector from point (PX,PY) 
to point (XX,YY) in whatever writing mode. 


eun ous en $= ry Y Gem 


call CGL by ref ( MOVE ABS 2, PX, PY ) ! Beginning 
call CGL by ref ( LINE _ ABS _ 2, XX, YY ) ! Plot to end 
return ! Return 


STATUS LINE: 


! 
! Display a status line at the bottom of the screen and 
! put the cursor back at the top of the screen 
! 
call CGL by ref (SET WRITING MODE, REPLACE) 
call CGL by ref (MOVE ABS 2, 0.01, 0.58) 
STATS = FORMATS (HOMEX, "Home : (#. eee") + & 
FORMATS (HOMEY, ",# ###) ") + & 
FORMATS (OPTION NAME, "Action Mode: ‘'LLLLLLLL ") + & 
FORMATS (MODE NAME, "Plot Mode: 'LLLL") 
call CGL by ref (TEXT, STATS, LEN(STATS) ) 
call CGL by ref (MOVE ABS 2, CX, CY) 
if v then call CGL by fef (SET_ WRITING MODE, COMPLEMENT) 
else call CGL by ref (SET_ WRITING _ "MODE, CURRENT | MODE ) 


end if 
return 


! 
! end the program 
t 


call CGL by ref ( NEW_FRAME ) 
call CGL by ref ( TERMINATE_CORE ) 


end 
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10 
This program is provided for instructional purposes. 
only. It demonstrates some aspects of the following 
software tools: 


Tool Kit BASIC-PLUS~-2 V2.1 
CORE Graphics Library V1.7 


This application displays fonts. If you specify font 0, 
it displays the entire DEC Multinational set (including 
CO and Cl), as shown in Chapter l. 


If you specify a user-defined font, it assumes that data 
for one or more 16 x 16 characters exists as a terminal- 
format file on the target system. The first line of the 
file contains the number of characters. The next 16 lines 
specify the contents of a character definition matrix, 
followed by a single delimiter line, followed by another 
character matrix, and so forth. 


Cum Cau @epm @6em O25 Oa Gem gam Cau Gem Caw Cam @em Ocp gam 6ew §== Faw Gem fam 


SINCLUDE 'LB:[1,5]CGL.B2S' 

f 

CALL CGL BY REF (INITIALIZE CORE) 

CALL CGL BY REF (NEW FRAME) 

INPUT ‘Font number’; FONT% 

IF FONTS = 0% THEN EXTENTS = 255% \ GOTO 20 \ END IF 


User-defined font 


CALL CGL BY REF (SET FONT, FONTS ) 
LINPUT ‘File name'; FILE NAMES 
OPEN FILE NAMES FOR INPUT AS FILE #1, ACCESS READ 
INPUT #1, EXTENTS \ EXTENTS = EXTENTS + 318% 
CALL CGL BY REF (SET FONT SIZE, 0%, 16%, 16%) ! Clear font 
CALL CGL BY REF (SET FONT SIZE, EXTENTS, 16%, 168%) 
! 
! Convert terminal-format data to binary. 
' 
DIM CHAR MATRIX%(158) 
FOR CH% = 32% TO EXTENT% ! For each character 
FOR I% 0% TO 15% ! For each definition line 
N% O% \ LINPUT #1, SS$ 


! Scan the line and set the appropriate bit for 
! each non-space character. 
! 


N% = N%¥ OR (2% ~ JS) & 


IF MIDS(SS, J% + 1%, 1%) <> ' ! & 
FOR J% = 15% TO O% STEP -1% 
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20 


LOOP : 
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CHAR MATRIX%(I3%) = N$% 
NEXT I% 
CALL CGL BY REF (LOAD CHARACTER, CH%, CHAR MATRIX$%() ) 
LINPUT #1, SS ! discard delimiter line 


NEXT CH% \ CLOSE #1 


! Display a font 

! 

CALL CGL BY REF (SET WINDOW, -1.0, 16.0, -1.0, 16.0) 

CALL CGL BY REF (NEW FRAME) 

IF FONTS = 0% THEN CH% = 0% 

ELSE CH% = 32% 
CALL CGL BY REF (SET CHARSIZE,0.5,0.8) 

END IF 

CALL CGL BY REF (BEGIN BATCH) 

FOR X = 0.0 T0 15.0 — 

FOR Y = 0.0 TO 15.0 
CALL CGL BY REF (MOVE ABS 2, X, Y) 
CALL CGL BY REF (TEXT, CHRS(CH3%), 1%) 
CH& = CHS + 1% 
EXIT LOOP IF CH% > EXTENTS 
NEXT Y 

NEXT X 

CALL CGL BY REF (END BATCH) 

i 

! Outline the window 

t 

CALL CGL BY REF (MOVE ABS 2, -1.0, -1.0) 

CALL CGL BY REF (RECTANGLE ABS 2, 16.0, 16.0) 

! 

! Finish up 

t 

DIM FOO%(13%) 

CALL GETKEY BY REF (FOO%()) ! Wait for input 

CALL CGL BY REF (NEW FRAME) 

CALL CGL BY REF (TERMINATE CORE) 

END 
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D.3.1 SUITS.FNT —- SAMPLE USER-DEFINED FONT 


For convenience, this file is shown in two columns. 
4 


X ' X : 

XXX ! XXX ! 

XXXXX ! XXXXX ! 
XXXXXXX ! XXXXXXX ! 
XXXXXXXXX ! XXXXXXXXX ! 
XXXXXXXXXXX : XXXXXXXXXKXX ! 
XXXXXXXXXXXXX_  ! XXXXXXXXXXXXX_  ! 
XXXXXXXXXXXXXXX ! XXXXXXXXXXXXXXX ! 
XXXXXXXXXXXXXXX ! XXXXXXXXXXXXX  ! 
XXXXXXXXXXXXXXX ! XXXXXXXXXXX ! 
XXXXX X XXXXX ! XAXXXXXXXX ! 
XXX X XXX : XXXXXXX ! 

X ! AXXXX ! 

XXX ! XXX ! 
XXXXX ! X ! 

| 
5432109876543210 5432109876543210 
XXX XXX ! XXX ! 
XXXXX XXXXX  ! XXXXX ! 
XXXXX XXXXX ! AXXXXXX ! 
XXXXXXX XXXXXXX ! XXXXXXX ! 
XXXXXXXXXXXXXXX ! XXXXX ! 
XXXXXXXXXXXXXXX ! XXX ! 
XXXXXXXXXXXXXXX ! XXX X XXX ! 
XXXXXXXXXXXXX_  ! XXXXX X XXXXX  ! 
XXXXXXXXXXXXX  ! XXXXXXXXXXXXXXX ! 
XXXXXXXXXXX : XXXXXXXXXXXXXXX ! 
XXXXXXXKX ! XXXXX X XXXXX _ ! 
XXXXXXX : XXX X XXX ! 
XXXXX ! X ! 

XXX ! XXX ! 

X ! AXXXX ! 

! 
5432109876543210 ~ ~=6©§ 432109876543210 
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10 


20 


! 
! 
! 
: 
d 
! 
! 
! 
! 
! 
: 
! 
! 
! 
% 


This program is provided for instructional purposes. 
only. It demonstrates some aspects of the following 
software tools: 


Tool Kit BASIC-PLUS-2 V2.1 
CORE Graphics Library V1.7 


This application was used to generate one of the figures 
in Chapter One: The Writing Modes Shown with Line Style. 
It draws two large filled areas, each covering one fourth 
of the window, then seven horizontal lines, each in a 
different writing mode. 


INCLUDE 'LB:[1,5]CGL.B2S' 


CALL CGL BY REF (INITIALIZE CORE) 
CALL CGL BY REF (NEW_FRAME) 
i 


Cum Quam 6 


Set up the color map for black and white 


DIM BLACK%(2%), WHITE%(2%) 

DATA 0,0,0, 7,7,7 

READ BLACK%(I%) FOR I% = 0% TO 2% 

READ WHITE%(I%) FOR I% = 0% TO 2% 

CALL CGL BY REF (SET COLOR MAP ENTRY, 7%, WHITE%()) 
CALL CGL BY REF (SET COLOR MAP ENTRY, 0%, BLACK%()) 


A line printer image is the negative of what appears on 
the screen. So, make the screen image reversible. 


LINPUT 'Reverse image’; RS \ R$ = EDITS(RS$, 32%) 
LINPUT ‘Print screen’: PS \ PS = EDITS(PS, 32%) 
IF RS = 'Y' THEN 


CALL CGL BY REF (SET WRITING INDEX, 0%) 
CALL CGL BY REF (SET BACKGROUND INDEX, 7%) 


ELSE 


CALL CGL BY REF (SET WRITING INDEX, 7%) 
CALL CGL BY REF (SET BACKGROUND INDEX, 08%) 


END IF 
CALL CGL BY REF (NEW FRAME) 


DECLARE REAL CONSTANT LOWER X 


Set up the window 


0, UPPER X = 
0, UPPER _Y = 17 


LOWER_Y 


CALL CGL BY REF (SET WINDOW, LOWER _X, UPPER X, & 


LOWER Y, UPPER _Y) 
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MODE.B2S - 


i 
! Draw vertical 
? 


CALL 
CALL 
CALL 
CALL 
CALL 


CALL 


CGL 
CGL 
CGL 
CGL 
CGL 
CGL 


BY 
BY 
BY 
BY 
BY 
BY 


REF 
REF 
REF 
REF 
REF 
REF 


DEMONSTRATE WRITING MODES 


fill for background 


(SET FILL MODE, POLYGON) 
(MOVE ABS 2, 0, LOWER _Y) 
(RECTANGLE ABS 2, 1, UPPER_Y) 
(MOVE ABS 2, 2, LOWER_Y) 
(RECTANGLE ABS 2, 3, UPPER_Y) 
(SET FILL MODE, OFF) 


Storage for visible mode names 


! 
! 
DATA 


"COMPLEMENT", 
"OVERLAY", 
"REPLACE", 
"BRASE", 


WRITING MODE% = 
CALL CGL BY REF (SET LINEWIDTH, 0.0, 1.3) 


CALL CGL BY REF 
CALL CGL BY REF 


FOR Y 


NEXT 
! 


! Outline the window 


Y 


1 TO 
CALL 
CALL 
READ 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
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CGL 
CGL 
WMS 
CGL 
CGL 
CGL 
CGE 
CGL 


lel a 


"COMPLEMENT NEGATE", & 
"OVERLAY NEGATE", & 
"REPLACE NEGATE", & 


"ERASE NEGATE" 


Draw a horizontal line for each mode 


COMPLEMENT 


(SET LINEWIDTH ORIENTATION, 0.0, 0.0) 
(SET LINESTYLE, DOT DASHED, 08%, 0%) 
STEP 2 
BY REF (BEGIN BATCH) 

BY REF (SET _WRITING MODE, WRITING MODES) 
\ WRITING MODE% = WRITING MODES + 13% 


BY 


REF 
REF 
REF 
REF 
REF 
REF 


(MOVE ABS 2, LOWER X, Y) 

(LINE ABS 2, UPPER X, Y) 

(MOVE ABS 2, LOWER X + 0.05, Y) 
(SET WRITING MODE, REPLACE NEGATE) 
(TEXT, WMS, LEN(WMS) ) 

(END BATCH) 


CALL CGL BY REF (SET LINEWIDTH, 0.0, 0.0) 


CALL CGL BY 
CALL CGL BY 


IF RS 


END I 


E 


yee 


REF (SET LINESTYLE, SOLID, 0%, 08%) 
REF (SET WRITING MODE, OVERLAY) 


THEN CALL CGL BY REF (SET WRITING INDEX, 73%) 
ELSE CALL CGL BY REF (SET WRITING INDEX, 03%) 


CALL CGL BY REF (MOVE ABS 2, LOWER X, LOWER Y) 


Finish up 


CALL CGL BY REF (RECTANGLE ABS 2, UPPER X, UPPER _Y) 


! 

! 

CALL CGL BY REF (PRINT SCREEN, LOWER_X, UPPER X, & 
LOWER _Y, UPPER Y, 0, 0) IF P$ = 'Y' 


D-16 
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DIM FOO%(13%) 

CALL GETKEY BY REF (FOO%()) ! Wait for input 
CALL CGL BY REF (NEW FRAME) 

CALL CGL BY REF (TERMINATE CORE) 

END 
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APPENDIX E 


SUMMARY OF INSTRUCTIONS 


In BASIC-PLUS-2, the data types of constants and 
(implicity-created) variables can be observed at a glance. Thus, 
in this appendix, the following BASIC-PLUS-2 conventions are used 
to indicate the data types of CGL instruction parameters. 


e No suffix indicates a real (two-word, floating point) type. 


@ A percent sign (%) indicates an integer (16-bit, signed) 
type. 


e A dollar sign ($) indicates a string (array of character) 
type. 


@ A subscript indicates an array. 


NOTE 


This summary does not include symmetric INQUIRE 
instructions. All SET instructions have a 
corresponding INQUIRE instruction with the same 
parameter list. 


ARC_ABS 2 (x, y, angle?) 


Draws an arc of a circle whose center is at a_ specified 
position, beginning at the current position, and 
continuing for a specified number of degrees. 


ARC_REL 2 (x, y, angles) 
Draws an arc of a circle whose center is at a_ specified 


offset, beginning at the current position, and continuing 
for a specified number of degrees. 


SUMMARY OF INSTRUCTIONS 


BEGIN BATCH 
Begins storing all subsequent view surface updates in a 
buffer and continues to do so until END BATCH or until 
the buffer is full. 

BEGIN DEFINE CHARACTER (code$%) 
Begins the definition of a character. 


CGL_ WAIT (seconds) 


Suspends all changes to the video monitor screen for a 
specified period of real time. 


CURVE ABS 2 (x_array, y array, n%, type$%) 
Draws a smooth curve connecting a list of positions. 
CURVE REL 2 (x_array, y_ array, n%, types) 
Draws a smooth curve connecting a list of offsets. 
DESELECT VIEW SURFACE (name$, length) 
The DESELECT VIEW SURFACE instruction removes a_ specific 
device from the set of devices to which CGL performs 
Output. 


END BATCH 


Performs all view surface updates stored since the last 
BEGIN BATCH. 


END DEFINE CHARACTER 

Ends the definition of a character. 
ERASE VIEWPORT 

Clears the viewport. 
INITIALIZE CORE 


Guarantees that the graphics system is in ae standard 
state with default parameters established. 


INITIALIZE VIEW SURFACE (name$, length?) 


Prepares (does not implicitly select) a specific output 
device for operation. 


SUMMARY OF INSTRUCTIONS 


INQUIRE CURRENT POSITION 2 (x, y) 
Returns the current world coordinate position. 
INQUIRE TEXT EXTENT 2 (length%, delta_x, delta _y) 
Reports the amount of world coordinate space that would 
be used to draw aéestring of the indicated length, 
unjustified, beginning at the current position. 


LINE ABS 2 (x, y) 


Changes the current position to the specified position 
and draws a connecting line. 


LINE REL 2 (delta_x, delta_y) 


Changes the current position to the specified offset and 
draws a connecting line. 


LOAD CHARACTER (code%, matrix%() ) 
Loads a character into the current user-defined font. 
LOAD FONT (name$, length) 


Loads characters into the current user-defined font from 
a named region. 


MARKER ABS 2 (x, y) 


Changes the current position to the specified position 
and draws a marker. 


MARKER REL 2 (delta _x, delta y) 


Changes the current position to the specified offset and 
draws a marker. 


MOVE ABS 2 (x, y) 

Changes the current position to the specified position. 
MOVE REL 2 (delta_x, delta _y) 

Changes the current position to the specifed offset. 
NEW_FRAME 


Clears currently selected view surfaces. 


SUMMARY OF INSTRUCTIONS 


PLAYBACK FILE (name$, length?) 
Executes a file of GIDIS commands. 
POLYGON ABS 2 (x_array, y array, n%) 


Draws a series of connected lines starting and ending at 
the first position in the specified list. 


POLYGON REL 2 (dx_array, dy array, n%) 


Draws a series of connected lines starting and ending at 
the first offset in the specified list. 


POLYLINE ABS 2 (x_array, y array, n%) 
Draws a series of connected lines starting at the current 
position and ending at the last position in the specified 
list. 

POLYLINE REL 2 (dx_array, dy array, n%) 
Draws a series of connected lines starting at the current 
position and ending at the last offset in the specified 
list. 

POLYMARKER ABS 2 (x_array, y array, n%) 


Changes the current position to each of a list of 
positions and draws a marker at each position. 


POLYMARKER_REL 2 (dx array, dy array, n%) 


Changes the current position to each of a list of offsets 
and draws a marker at each offset. 


PRINT SCREEN (lower x, upper_x, lower_y, upper y, x offset, 
y_ offset) 


Sends an image of the video monitor screen to a graphics 
printer (LA50 or LA100). 


RECTANGLE ABS 2 (x, y) 
Draws a series of connected lines forming a_ four-sided, 


perpendicular, polygon with the current position at one 
corner and the specified point at the opposing corner. 


SUMMARY OF INSTRUCTIONS 


RECTANGLE REL 2 (dx, dy) 
Draws a series of connected lines forming ae four-sided, 
perpendicular, polygon with the current position at one 
corner and the specified offset at the opposing corner. 
REPORT MOST RECENT ERROR (inst _name%, code$%) 
Reports the instruction number and error code associated 
with the most recent execution error and returns the 
system to a nonerror state. 
SCROLL (delta_x, delta y) 
Moves the contents of the entire video monitor screen Dy 
a specified amount of world coordinate space. 


SCROLL VIEWPORT (delta_x, delta_y) 


Moves the contents of the viewport by a specified amount 
of world coordinate space. 


SELECT VIEW SURFACE (name$, length8) 


Adds a specific device to the set of view surfaces’ to 
which CGL performs output. 


SET BACKGROUND INDEX (index?) 
Specifies an index into the color map for the background. 
SET CHARITALIC (angle$) 


Specifies the slant of the individual characters in a 
text string. 


SET_CHARJUST (x_just%, y just%) 


Specifies the starting position of text primitives 
relative to the current position. 


SET _CHARPATH (path%, mode’) 


In character mode, specifies the path (relative to 
horizontal) of individual characters. In string mode, 
specifies the path (relative to horizontal) of entire 
strings. 


SUMMARY OF INSTRUCTIONS 


SET CHARSIZE (width, height) 


Specifies the X and Y size, in world coordinate units, of 
text primitives. 


SET CHARSPACE (delta_x, delta _y) 


Specifies the horizontal and vertical displacement 
between the starting points of adjacent letters. 


SET _COLOR_MAP (color_map%() ) 


Specifies the RGB values of the entire color map and of 
any existing images. : 


SET_COLOR_MAP_ENTRY (entry%, color%()) 


Specifies the RGB values of an individual color map entry 
and of any existing images drawn with that entry. 


SET CURSOR (font%, char%, width%, height%, dx, dy) 


Controls the appearance of the cursor, the visual 
representation of the current position. 


SET FILL CHAR (font%, chart, width _mult%, height mult?) 
Specifies the character used for area fill. 
SET FILL ENTITY (x, y) 


Specifies the line or point used as the reference for 
area fill. 


SET FILL MODE (mode%) 


Specifies the current area fill mode: (off, vertical 
line, horizontal line, point). 


SET_FONT (font3) 
Specifies one of the four available character fonts. 
SET FONT SIZE (extent%, x_size%, y sizes) 
Initializes the current user-defined font: specifies the 


highest-numbered character and the size of the characters 
in physical device coordinate units. 


SUMMARY OF INSTRUCTIONS 


SET GLOBAL ATTRIBUTES (int_list%(), real_list()) 


Specifies the values of the entire global output 
primitive attribute list. 


SET LINESTYLE (style%, pattern%, mult) 
Specifies the current pattern for line primitives. 
SET LINEWIDTH (dx, dy) 


Specifies the X and Y width of line primitives in world 
coordinate units. 


SET LINEWIDTH ORIENTATION (dx, dy) 
Specifies the offset from the end of a line primitive to 
the actual drawing position specified in the line 
primitive instruction. 


SET MARKER SYMBOL (symbol%, code%) 


Specifies one of five standard symbols or a_ user-defined 
symbol as the current marker symbol. 


SET NDC_SPACE 2 (width, height) 
Defines normalized device coordinate space. 
SET ORIGIN (origin?) 


Specifies which corner of the viewport corresponds to the 
origin of the window. 


SET VIEWPORT 2 (xmin, xmax, ymin, ymax) 
Specifies a portion of normalized device coordinate space 
to be the viewport and resets the current position to the 
origin of the window. 


SET WINDOW (xmin, xmax, ymin, ymax) 


Specifies the edges of the window and resets the current 
position to the origin of the window. 


SET WINDOW CLIPPING (on_off%) 


Controls the display of output primitives (or portions of 
output primitives) that fall outside of the window. 


SUMMARY OF INSTRUCTIONS 


SET WRITING INDEX (index’) 


Specifies an index into the color map for images created 
by subsequent output primitive instructions. 


SET WRITING MODE (mode$) 


Specifies the exact manner in which CGL draws’ output 
primitives. 


SET WRITING PLANES (n%) 


Specifies which of the three bitmap planes can be written 
into by CGL. 


TERMINATE CORE 
Releases all resources used by the CGL system. 
TERMINATE VIEW SURFACE (name$, length$%) 


Terminates access to and releases a specific output 
device. 


TEXT (string$, length?) 


Draws a line of text. 


APPENDIX F 


GLOSSARY 


The words in this glossary are used throughout this’ manual. 
These definitions are not absolute and may differ somewhat in 
other contexts. Where possible, the CORE Standard usage is’ the 
basis of the definition. 


ATTRIBUTE 


One of a CGL-maintained list of values that determine the 
characteristics of appearance of output primitives. 


See also OUTPUT PRIMITIVE. 

BASIC~PLUS~-2 

The Professional Developer's Tool Kit implementation of 
BASIC-PLUS-2, a highly extended compiler for BASIC (Beginner's 
All-purpose Symbolic Instruction Code), a widely-used programming 
language. 


CLIPPING 


The state in which output primitives occupying world coordinate 
positions outside the window do not appear on the view surface. 


See also OUTPUT PRIMITIVE, WINDOW, WORLD COORDINATES. 
CURRENT POSITION 


The world coordinate position that defines the current drawing 
location. 


See also WORLD COORDINATES. 


GLOSSARY 


CURSOR 

In text mode, the cursor is the visual representation of where 
the next character will appear. It is indicated by a blinking 
character at that position or by a blinking underline. 

While CGL is operational, the cursor is the visual representation 
of the current position. It is indicated by blinking cross-hairs 
or a character that you specify. 


On a printing terminal, the cursor is considered to be _ the 
current location of the print head. 


See also GRAPHICS MODE, TEXT MODE. 

GRAPHICS MODE 

A mode of operation in which physical device coordinate positions 
can be addressed and written to. Graphics mode and text mode are 
mutually exclusive. CGL is an interface between the Professional 
graphics mode and application programs. 

See also PHYSICAL DEVICE COORDINATES, TEXT MODE. 

IMAGE 

A view of one or more graphical objects. 

See also VIEWING TRANSFORMATION. 

NORMALIZED DEVICE COORDINATES (NDC) 


Device-independent Cartesian coordinates in the range 0 to 1 for 
specifying the viewport. 


see also PHYSICAL DEVICE COORDINATES, VIEWPORT, WORLD 
COORDINATES. 


OUTPUT PRIMITIVE 


A part of a picture, such as a geometric object or a text string, 
that has a specific appearance. Values of attributes determine 
some aspects of the appearance. 


PHYSICAL DEVICE COORDINATES 


Device-dependent Cartesian coordinates for specifying locations 
on the view surface of an output device. The Professional's 
physical device coordinate space is 960 (horizontal) by 600 
(vertical) units. Some special CGL instructions accept binary 
values where each bit corresponds to a physical device coordinate 


EZ 


GLOSSARY 


unit. 
SCREEN 


A two-dimensional, physical view surface upon which images are 
drawn; specifically the Professional 300 Series video monitor. 


TEXT MODE 

A terminal subsystem mode in which the video display is divided 
into discrete rectangular cells, each consisting of 12 X 25 
physical device coordinate units, that are treated as_ the 
smallest unit of display resolution. 

See also PHYSICAL DEVICE COORDINATES, GRAPHICS MODE. 

VIEWING TRANSFORMATION 


A transformation that maps world coordinates to normalized device 
coordinates (which can include clipping). 


See also CLIPPING, NORMALIZED DEVICE COORDINATES, WORLD 
COORDINATES. 


VIEWPORT 

The currently used portion of normalized device coordinate space. 
See also NORMALIZED DEVICE COORDINATES. 

VIEW SURFACE 

The visual display component of a physical output device. 

WORLD COORDINATES 


Device-independent Cartesian coordinates defined by the 
application program to describe data to CGL. 


See also CURRENT POSITION, NORMALIZED DEVICE COORDINATES, 
PHYSICAL DEVICE COORDINATES, VIEWING TRANSFORMATION. 
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-A- glossary definition, F-l 
include file, 2-1 
Absolute position listing, C-l 
definition, 1-12 NOECHO function, 2-7 
ACM string parameter, 2-2 
and CORE Standard, 1-l, 1-3 WAIT statement, 3-10 
Application Builder BEGIN BATCH 
see PAB : general description, 1-6 
Arc reference description, 3-9 
appearance, 1-14 summary description, E-2 
drawing, 7-8 to 7-9 BEGIN DEFINE CHARACTER 
ARC_ABS_ 2 reference description, 8-4 
general description, 1-19 summary description, E-2 
reference description, 7-8 Bitmap 
summary description, E-1 definition of, 1-30 
ARC_REL 2 } interface to color map, 1-34 
general description, 1-19 
reference description, 7-9 -C~ 


summary description, E-1 
Aspect ratio | Calling Sequence 


viewport, 1-14 FORTRAN, 2-1 
Association PDP-11 R5, 2-1 
see ACM Cartesian coordinate 
Attribute definition, 1-7 
default values, 1-5 CGL 
definition, 1-21 definition of, xi 
Glossary definition, F-l CGL WAIT 
instruction, 1-5 general description, 1-6 
reference description, 3-10 
-B- summary description, E-2 
Character 
Background as current pattern, 1-36 
definition of, 1-21 half-size, 8-7 
Background index inversion, 8-7 
default value, 5-3 user-defined, 1-20, 1-26, 8-3 
definition, 1-33 Character italic 
in ERASE VIEWPORT, 3-10 default value of, 8-ll 
in replace mode, 1-38 definition, 1-29 
in replace negate mode, 1-38 setting, 5-9, 8-10 
in scrolling, 4-6, 4-8 Character justification 
on plotter, B-4 default value of, 8-10 
setting, 5-2, 5-9 definition, 1-28 
BAS IC-PLUS-2 setting, 5-9, 8-10 
array numbering, 7-4 to 7-5 Character path 
array parameter, 2-2 character mode, 8-8 
CALL statement, 2-1 default value of, 8-9 
data types, E-l definition, 1-27 


Index-l 


INDEX 


effect on character spacing, 
8-8 
setting, 5-9, 8-8 
string mode, 8-8 
Character size 
computing, 1-25 
default value of, 
definition, 1-25 
setting, 5-9, 8-6 
standard, 1-26 
Character spacing 
default value of, 
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definition, 1-27 

setting, 5-9, 8-7 
Circle 

drawing, 7-8, 7-10 
Clipping 

controlling, 4-3 

definition, 1-14 


glossary definition, F-l 
COBOL~-81 
CALL statement, 2-2 
integer to real conversion, 
text declaration, 2-3 
Color 
complementary, 1-31 
formation by addition, 
Color map 
background index, 5-2 
default values, 1-5, 
description, 1-32 
example program, 
instruction, 1-32 
interface to bitmap, 
setting, 5-3 to 5-4 
setting for complement mode, 
1-37 
writeable entries, 
writing index, 5-1 
Complement mode 
and cursor, l1-1ll 
description, 1-36 
setting, 5-7 
when not to use, 7-15 
Complement negate mode 
description, 1-37 
setting, 5-7 
Complementary color 
definition, 1-31 
Control instruction 
using 


2=3 


i321 


L233 
D=1 


1-34 


5=6 


description, 1-4 
Coordinate space 
definition, 1-7 
CORE Standard 
character size, 8-7 
Gompatibility;, 1x, 
definition of, xi 
description, 1-2 
function name, x 
function names, 
Current pattern 
definition, 1-36 
Current position 
description, l1-1l 
glossary definition, 
instruction, 1-17, 6-1 
obtaining, 6-2 
resetting, 4-2, 4-5 
setting, 6-1 to 6-2, 6-4 
7-1 to 7-3, 7-5 to 7- 
to 7-9, 7-ll to 7-12 
Cursor 
glossary definition, F-2 
purpose, 1-l1l 
setting, 6-3 
Curve 
appearance, 1-15 
drawing, 7-11 to 7-12 
CURVE ABS 2 
general description, 1-19 
reference description, 7-11 
summary description, E-2 
CURVE REL 2 
general description, 1-19 
reference description, 7-12 
summary description, E-2 
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DEC Multinational Character Set 
contents, 1-29 
decimal code, 8-4 to 8-5, 
in Font 0, 8-1l 
DESELECT VIEW SURFACE 
general description, 1-6 
reference description, 3-7 
summary description, E-2 
DIBOL 
include file, 
listing, C-4 
XCALL statement, 


8-12 


2-4 
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EBO 
and color map, 1-32 
description, 1-31 
effect on complement mode, 1-37 
with monochrome device, 1-3l 
Echo 
disabling, 2-7 
END BATCH 
general description, 1-6 
implicit, 3-2 
reference description, 3-9 
summary description, E-2 
END DEFINE CHARACTER 
reference description, 8-5 
summary description, E-2 
Erase mode 
description, 1-38 
on plotter, B-4 
setting, 5-7 
use of background index, 5-2 
Erase negate mode 
description, 1-38 
on plotter, B-4 
setting, 5-7 
use of writing index, 5-1 
ERASE VIEWPORT 
effect on background index, 5-2 
general description, 1-7 
reference description, 3-10 
summary description, E-2 
Error message 
behavior of plotter, B-9 
complete list, A-l 
Error reporting 
see REPORT MOST RECENT ERROR 
Extented Bitmap Option 
see EBO 
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Fill 
definition, 1-23 
Fill character 
default value of, 7-20 
definition, 1-24 
on plotter, B-5 
setting, 5-9, 7-20 
Fill entity 
default value, 7-19 


definition, 1-23 
purpose, 1-23 
resetting, 4-1 to 4-2, 4-5 
setting, 5-9, 7-19 
Fill mode 
setting, 5-9, 7-18 
Font 
definition, 1-29 
on plotter, B-8 
setting, 5-9, 8-11 
user-defined, 3-6, 8-2 to 8-3, 
8-11 
example, D-14 
Font editor 
definition, 1-20 
example program, D-12 
Font size 
definition, 1-30 
on plotter, B-8 
setting, 8-12 
FORTRAN 
CALL statement, 2- 
include file, 2-4 
listing, C-6 
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GETKEY | 
for terminal I/O, 2-7 

GIGI 
and ReGIS, 1-2 

Global attribute 
default values, 5-9 
definition, 1-16 

Global attribute list 
description, 1-38 
setting, 5-8 

Graphics mode 
accessing, l-l 
glossary definition, F-2 
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Image 
correcting distortion, 1-13 
glossary definition, F-2 
INITIALIZE CORE 
general description, 1-5 
reference description, 3-1 
summary description, E-2 
using, 1-5 
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INITIALIZE VIEW SURFACE 
general description, 1-5 
reference description, 3-3 
summary description, E-2 

INQUIRE instruction 
format conventions, x 
purpose, 1x 
symmetric, E-l 

INQUIRE CURRENT POSITION 2 
general description, 1-17 
reference description, 6-2 
summary description, E-3 

INQUIRE TEXT EXTENT 2 
general description, 1-20 
reference description, 8-2 
summary description, E-3 

Installation 
command file, 2-10 

Instruction 
format conventions, x 

Instruction name 
meaning of suffix, 1-16 
selection, ix 

Interpolation 
definition, 1-19 

Italic 
see Character italic 
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Line 
drawing, 7-1 to 7-7 
Line attribute 
instruction, 1-21, 7-13 
Line primitive 
instruction, 1-18, 7-1, 7-8 
Line style 
as current pattern, 1-36 
as fill character, 1-24 
default value, 7-13 
definition, 1-21 
multiplier, 7-14 
on plotter, B-5 
setting, 5-9; 7-13 
vertical for fill, 7-20 
Line width 
default value of, 7-15 
definition, 1-22 
effect of sign, 7-16 


effect on drawing speed, 7-15 


on plotter, B-5 


INDEX 


setting, 5-9, 7-14 
Line width orientation 
default value, 7-18 
definition, 1-22 
setting, 7-16 
LINE ABS 2 
effect on current position, 
1-11 
general description, 1-18 
reference description, 7-1 
summary description, E-3 
LINE REL 2 
general description, 1-18 
reference description, 7-1 
summary description, E-3 
LOAD CHARACTER 
general description, 1-20 
non-effect on plotter, B-2 
reference description, 8-3 
summary description, E-3 
LOAD FONT 
general description, 1-20 
non-effect on plotter, B-2 
reference description, 8-2 
summary description, E-3 
Logical unit number 
assigning, 2-9 
LUN 
see logical unit number 
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MACRO-11 

calling CGL from, 2-6 
Marker 

definition, 1-17 

drawing, 6-4 to 6-6 

symbol 

default value of, 6-8 

Marker attribute 

instruction, 1-24, 6-7 
Marker primitive 

instruction, 1-17, 6-4 
Marker symbol 

definition, 1-24 

on plotter, B-4 

setting, 5-9, 6-7 
MARKER ABS 2 

general description, 1-17 

reference description, 6-4 

summary description, E-3 
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MARKER REL 2 
general description, 1-17 
reference description, 6-5 
summary description, E-3 
Monochromatic image 
description, 1-30 
MOVE ABS 2 
effect on current position, 
1~12 
general description, 1-17 
reference description, 6-1 
summary description, E-3 
MOVE REL 2 
effect on current position, 
1~12 
general description, 1-17 
reference description, 6-2 
Summary description, E-3 


-N— 


NEW_FRAME 


effect on background index, 5-2 


general description, 1-5 
non-effect on plotter, B-2 
reference description, 3-2 
summary description, E-3 
Normalized device coordinate 
definition, 1-8 
description, 1-12 
glossary definition, F-2 
Space, 1-12 
Normalized device coordinate 
(NDC) 
Space, 1-13 
-O— 


Origin 
as default fill entity, 7-19 
definition, 1-10 
effect on scrolling, 
resetting, 4-1 to 4-2 

Output primitive 
description, 1-16 
factors affecting, 1-16 
glossary definition, F-2 
instruction, 1-4 

Overlay mode 
description, 1-37 
on plotter, B-4 


4-6, 4-8 


INDEX 


setting, 5-7 


use of writing index, 5-l 


Overlay negate mode 


description, 1-37 
setting, 5-7 
use of writing index, 5-1 


-p— 


P/OS User Interface Library 


using with CGL, 2-8 


PAB 


command file, 1-5, 2-8 
overlay descriptor file, 2-8 


PASCAL 


Pi 


Pl 


include file, 2-5 
listing, C-9 
parameter passing, 
READONLY attribute, 
SEQ11 declaration, 2 
TEXT identifier, 8-l 
UNSAFE attribute, 2-6 


2-6 
2-6 
=5 


Physical device coordinate 


definition, 1-8, 1-14 
glossary definition, 
space, 1-14, B-2 

xel 

general definition, 

ane 

definition of, 1-30 

selecting, 1-35, 5-6 


F-2 


1-14 


PLAYBACK FILE 


Pl 


general description, 1-6 
reference description, 3-8 
summary description, E-4 
otter 


Hewlett-Packard, B-l, B-10 


POLYGON_ABS 2 


general description, 1-18 
reference description, 7-4 
summary description, E-4 


POLYGON REL 2 


general description, 1-18 
reference description, 7-5 
summary description, E-4 


POLYLINE ABS 2 


general description, 1-18 
reference description, 7-2 
summary description, E-4 


POLYLINE REL 2 


Index-5 


general description, 1-18 


reference description, 7-3 
summary description, E-4 
POLYMARKER ABS 2 
general description, 1-17 
reference description, 6-5 
summary description, E-4 
POLYMARKER_ REL 2 
general description, 1-18 
reference description, 6-6 
summary description, E-4 
Portability 
of programs, x, 1-3 
POSRES 
using with CGL, 2-8 
Primary color 
1 21gnt, 132. 
PRINT SCREEN 
general description, 1-7 
reference description, 3-l1l 
summary description, E-4 
PRO/GIDIS 
description, 1-1 


INDEX 


Replace negate mode 
description, 1-38 
setting, 5-7 
use of background index, 5-2 
REPORT MOST RECENT ERROR 
and carry bit, 2-7 | 
general description, 1-7 
reference description, 3-12 
summary description, E-5 
RGB value 
definition, 1-32 
setting, 5-3 to 5-4 
with monochrome device, 1-34 
Rounding errors 
in consecutive arcs, 7-8, 7-10 


-S— 
Screen 
glossary definition, F-3 
printing 


see PRINT SCREEN 


Professional Application Builder SCROLL 


see PAB 
Pythagorean Theorem 
example, 7-9 to 7-10 


-Q- 


QIO 
access to PRO/GIDIS, 1-2 


-R- 


RECTANGLE ABS 2 
general description, 1-19 
reference description, 7-6 
summary description, E-4 
RECTANGLE REL 2 
general description, 1-19 
reference description, 7-7 
summary description, E-5 
ReGIS 
description, 1-2 
implementation, 1-2 
Relative position 
definition, 1-12 
Replace mode 
description, 1-38 
setting, 5-7 
use of background index, 5-2 


non-effect on plotter, B-2 

reference description, 4-6 

summary description, E-5 
SCROLL VIEWPORT 

non-effect on plotter, B-2 

reference description, 4-7 

summary description, E-5 
Scrolling 

of screen, 4-6 

of viewport, 4-7 
SELECT VIEW SURFACE 

general description, 1-6 

reference description, 3-5 

summary description, E-5 
SET instruction 

format conventions, x 
SET BACKGROUND INDEX 

effect on plotter, B-4 

general description, 1-33 

reference description, 5-2 

summary description, E-5 
SET CHARITALIC 

effect on character size, 1-26 

general description, 1-29 

reference description, 8-10 

Summary description, E-5 

use Of with SET CHARPATH, 8-9 
SET CHARJUST 


Index-6 


INDEX 


general description, 1-28 
reference description, 8-10 
summary description, E-5 
SET _CHARPATH 
effect on character size, 1-26 
general description, 1-27 
modes, 1-27 
reference description, 8-8 
summary description, E-5 
SET CHARSIZE 
general description, 1-25 
reference description, 8-6 
summary description, E-6 
SET CHARSPACE 
general description, 1-27 
reference description, 8-7 
summary description, E-6 
with SET CHARPATH, 1-28 
SET COLOR_MAP 
EBO requirement, 5-1 
general description, 1-32 
non-effect on plotter, B-2 
reference description, 5-4 
summary description, E-6 
SET COLOR _MAP_ ENTRY 
EBO requirement, 5-1 
general description, 1-33 
non-~effect on plotter, B-3 
reference description, 5-3 
summary description, E-6 
SET CURSOR 
general description, 1-1ll, 1-17 
non-effect on plotter, B-3 
reference description, 6-3 
summary description, E-6 
SET FILL CHAR 
effect on plotter, B-5 
general description, 1-24 
reference description, 7-20 
summary description, E-6 
SET FILL ENTITY 
general description, 1-23 
reference description, 7-19 
summary description, E-6 
SET FILL MODE 
general description, 1-23 
reference description, 7-18 
summary description, E-6 
SET FONT 
effect on plotter, B-8 
general description, 1-29 


reference description, 8-1l 
summary description, E-6 
SET FONT SIZE 
effect on plotter, B-8 
effect on view surfaces, 3-6 
general description, 1-30 
reference description, 8-12 
relationship to LOAD CHARACTER, 
8-4 to 8-5 7 
summary description, E-6 
use Of with LOAD CHARACTER, 8-4 
to 8-5 
use Of with LOAD FONT, 8-3 
SET GLOBAL ATTRIBUTES 
general description, 1-38 
reference description, 5-8 
summary description, E-7 
SET LINESTYLE 
effect on plotter, B-5 
general description, 1-21 
reference description, 7-13 
summary description, E-7 
SET LINEWIDTH 
effect on plotter, B-5 
general description, 1-22 
reference description, 7-14 
Summary description, E-7 
SET LINEWIDTH ORIENTATION 
general description, 1-22 
reference description, 7-16 
Summary description, E-7 
SET MARKER SYMBOL 
effect on plotter, B-4 
general description, 1-24 
reference description, 6-7 
Summary description, E-7 
SET_NDC_SPACE_ 2 
reference description, 4-3 
Summary description, E-7 
SET ORIGIN 
general description, 1-11 
reference description, 4-2 
Summary description, E-7 
SET VIEWPORT 2 
general description, 1-13 
reference description, 4-5 
Summary description, E-7 
SET WINDOW 
general description, 1-10 
reference description, 4-1 
summary description, E-7 


Index-7 


SET WINDOW CLIPPING 
general description, 1-14 
reference description, 4-3 
summary description, E-7 
SET WRITING INDEX 
effect on plotter, B-3 
general description, 1-33 
reference description, 5-1 
summary description, E-8 
SET WRITING MODE 
effect on plotter, B-4 
general description, 1-36 
reference description, 5-7 
summary description, E-8 
SET WRITING PLANES 
EBO requirement, 5-1 
general description, 1-35 
non~effect on plotter, B-3 
reference description, 5-6 
summary description, E-8 
SIGGRAPH 
and CORE Standard, 
Slant 
see Character italic 
Special Interest Group 
see SIGGRAPH 
Suspending execution 
see CGL WAIT 


l-l, 1-3 


-T= 


Terminal Subsystem 
modes, l-l 
TERMINATE CORE 
general description, 1-5 
reference description, 3-2 
summary description, E-8 
TERMINATE VIEW SURFACE 
general description, 1-6 
reference description, 3-4 
summary description, E-8 
TEXT 
general description, 1-20 
reference description, 8-1 
summary description, E-8 
Text 
appearance, 
drawing, 8-1 
Text attribute 
instruction, 
Text extent 


i= 15 


l=29 7-8-6 


INDEX 


definition, 8-2 


Text mode 


accessing, 1-l 
and graphics, 1-19 
glossary definition, F-3 


Text primitive 


instruction, 1-19, 8-1 


Transparent mode 


description, 1-36 
on plotter, B-4 
setting, 5-7 


Transparent negate mode 


description, 1-36 
on plotter, B-4 
setting, 5-7 


-~VY= 


Video monitor 


initialization and selection, 
3-1] 


View surface 


erasing 

see NEW FRAME 
font definition, 8-12 
glossary definition, F-3 
in viewing transformation, 
optional, B-1l 


Viewing transformation 


1-5 
1-14 


default values, 
definition, 1-9, 
effect on arcs, 7-8 to 7-9 
effect on line width, 1-22 
effect on output primitives, 
1-16 
glossary definition, F-3 
instruction, 1-4 


Viewport 


aspect ratio, 1-14 
default values of, 
definition, 1-13 
erasing 

see ERASE VIEWPORT 
glossary definition, 


4-5 


F=3 


VT125 


Index-8 


in viewing transformation, 
setting, 4-5 

and ReGIS, 1-2 : 
color map compatibility, 1-33, 


L=37 


1-14 


1-14 


INDEX 


-W- default value, 5-2 
definition, 1-33 
Window in erase negate mode, 1-38 
default value of, 4-2 in overlay mode, 1-37 
description, 1-10 in overlay negate mode, 1-37 
effect on character size, 8-7 in replace mode, 1-38 
in viewing transformation, 1-14 in replace negate mode, 1-38 
origin on plotter, B-3 
see Origin setting, 5-l, 5-9 
resetting, 4-1 Writing mode 
simulating multiple, 3-ll definition, 1-36 
World coordinate example program, D-15 
definition, 1-7 on plotter, B-4 
description, 1-8 setting, 5-7, 5-9 
glossary definition, F-3 use of background index, 5-2 
space, 1-9 to 1-10 use of writing index, 5-l 


Writing index 
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READER’S COMMENTS 


NOTE: This form is for document comments only. DIGITAL 
will use comments submitted on this form at the com- 
pany's discretion. If you require a written reply and 
are eligible to receive one under Software Perfor- 
mance Report (SPR) service, submit your comments 
on an SPR form. 


Did you find this manual understandable, usable, and well-organized? 
Please make suggestions for improvement. 


Did you find errors in this manual? If so, specify the error and the page number. 


Please indicate the type of reader that you most nearly represent. 
L] Assembly language programmer 
L] Higher-level language programmer 
LJ) Occasional programmer (experienced) 
LJ User with little programming experience 
L] Student programmer 
LJ Other (please specify) 
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